


Institutional Archive of the Naval Postgraduate School 


Calhoun: The NPS Institutional Archive 
DSpace Repository 


Theses and Dissertations l. Thesis and Dissertation Collection, all items 


1986 


Co oP 2.0 distributed Decision Support System 
for strategic planning. 


Skindilias, Christos K. 


http://hdl.handle.net/10945/21745 


Downloaded from NPS Archive: Calhoun 


| Calhoun is the Naval Postgraduate School's public access digital repository for 
D U DLEY research materials and institutional publications created by the NPS community. 
3 Calhoun is named for Professor of Mathematics Guy K. Calhoun, NPS's first 
KNOX appointed — and published — scholarly author. 





LIBRARY Dudley Knox Library / Naval Postgraduate School 
411 Dyer Road / 1 University Circle 


http://www.nps.edu/library Monterey, California USA 93943 




















hod d 1.001007۹ 
O ھت ہج ی چ او وا ی ا‎ ote <a 
ASRS eH re de EE NOn EE EE Ροκ να σου 
f 8 0ج‎ 1 d ^ gie م‎ Mhdd ^ 
وو ا ا جس‎ ey رخ دم ا زیر یی ار یک ای ا می ہویم‎ | μοι PE RS ite t uh a. و بیج‎ λε. να 
ہی یر جن سمش فک ایب اس‎ E سے‎ a IT! ΝΥΝ ἘΜ fe ειν" 48:42. Μο "af > M 2 ` 
potere μὴν PRCT teh alis OU PEDES d Meunier ELE EK رسس نی و‎ EG که ډګ‎ w wal E re م۶‎ LS 7 
رم‎ LTS T dii tr Me un PST وا‎ 1. ὁ τν ΤΑ) ων ٥٤6 ΣΟ, ὍΝ δα“ FHP "PIX ک٣ ا‎ "P Art ٦ r ar ‘ee Net i L-— δρ 
ٹا‎ ο my ματα απ cdd CET s e “ΝΕΟ ul fy m Doni ρου WAP D AT - ٦ "YS "S A pen نکی‎ ber! ویپ یں بس‎ tee ae PTR E ا جو‎ 
^ Hed iM ών Aq AR ov νά. ΗΤΟ ΟΙ AUT Cast hyy AS the ake Motel PP AD OI TIME, HUNE ال راد جا - " ' ار‎ | fV ron Te Tavira we A Vr uot 4a ERA oF J 
i μμ E Μον ον heroe v P UY Espera ΠΤ καν ο CUP ELM ATENEO rt αυτη E ری = نٹ‎ i 1 MUR 7 we وی ہا‎ Ἢ TOL CN | rae er ene n: «ΤΑ 1 γή ΜΑ افیا اا و اہی ون ی وااو‎ P9 
ت‎ EI UM e TD LD eta HELICON یب یر یر یو‎ POE ری ہس ا ود‎ se g» y” D m7 ۱ mw, ا‎ nt ٦ 2 ریا >> ایام .نہب جس‎ χμ ee مو یی‎ ώς p پر تا‎ MAT Cn rer Uer ry. ως 
"Od یلیر ا سی ہی سس سیر‎ we ΗΕ ΝΥΧΙΑ a el agb e AO NTC apt N ἐν δ ον AN αν - 27 TE AA ANNO PATE ha ar Rip MASA fis CLARIS VR Ra IDA, ARAL ORA RAI d (uia [η σσ 
OO eet e mr A Certe np η CE ET ^ro rH ator egeo periere tet ολλ ds 2a. Ka, on مھ ےن ہی ےھ‎ " E k ve DE Ma e ۲ απ οπών ہش سم‎ ri PEUT He We EY UM TEN TTE Qe rcr P Ar I سوہ‎ d. 
pr rep پر‎ prseter όν POZEM] بابرا رکیل ا ا با ید‎ TEDE CLE Y P N ΜΠ بت وی ری شوہ‎ A Ag 0 ` i ; ہی‎ O eA RET (CN De Ae a" با با‎ ۸۸. TA ری‎ Ri Mr v مل ا ا‎ γην 
وی‎ ente e σι P YA سیپس‎ LS up qind Ματ Yu (Ua LE Γι πα τας 0 e ἕν, ρω. n TS XP ہو‎ ανα Ua ανα .ان‎ πρ] وی‎ νη ra PR eT ary vy 7 
precor y bd a T er EE کک ا‎ RENT ιο کات‎ ed ΓΥ ΤῊΝ P v vau io o9 «ru Pry ar Ca ma h ? ñ ر‎ 64 ΠῚ UA a er MER η CERA نو ہے سی زمر ای سے و ا موی‎ 
2 با شارت فی با ہیں رہم‎ ciet ie rS GE EE EE EY ΤΟ ποτ Ὁ. Hi dig oat š: "-— > F rites a "E we Mui MP AAT C ολο les wr BAN Pe LL HAAR. ا جا ان‎ 
سم رر یا پیر اد یہہ سج سم سم اھ لسم‎ et TRE SO ےر ا‎ PTET ETTE P T MEE τσ, "PL K an r 1 k ر اياي‎ Z نہیں‎ aa arr ελ ARTA E TLR لہ‎ ET YEY TG ایا ر‎ 
لاا ا ر و ا‎ pha O OT ων κ αν πας’ سو مس‎ ο.» E ον TO rar. ΜΟΎ Ἀφ. 2 eX وھ‎ ΠΝ κα ΑΝ ΤΣΗ“ ο. پا پر و دري دا اه‎ hrs EI سر سے‎ 
ad. adden کے‎ μα مد‎ ase, ὑπ S Dido νά, و سد می می انرک‎ Χρ δες ην. وہر ہیں‎ «: ὧν οὐ * x سے ھا مت وک ںا‎ mr یہ ہوک ای ڈیڈ پر یں‎ αν λα ہمت ام یم مد می ید‎ pw سان ارت ا ا اد چا‎ 
سے سس ساس سیب سی‎ TEA سی وف پیا یم‎ TTD LON DIE re لا کر ا یا سی بر‎ E a ےر اک‎ Αη CE Πα pest pe ates پر سا یف‎ ἃ ΝΡ ΤΑ گر یں‎ ETE ΙΚΕΑ ree e eo mini ΤῊ OT E 
Si سے سس سسےسرے‎ ως ο ΡΟ e A TRL παν ں٣ را نو‎ ML a in eee ^ x *: پا‎ A i "T d 1 پا‎ 1 x B. جو یسر یں‎ AEN rdi do petet bi eter men: رن‎ Ab hd Re ay YI σι om Lie σος ή 
ο ο REESE οκ ος ms TILA TPS μας کر یں ہا‎ ΠΕ بش وٹ لا‎ og OA ہے‎ da hh eR U: A Bp d ہن‎ ρα αν ανν t NEUF (PRU τς νο ΙΙ v Ae c Pherae = mph p quidem 
να αρ πο ρε κ ήτα ea ا‎ UU Si P edad δα. ΠΠ m ہے‎ Û μμ. ο. ον "m "EP r M αν ελ κκ το ΚΝ 00 E OO OL DST Se » rt aao dora پا‎ 
bpm I s eee peo a ET e pr La d end d T "I 0 P ος į ΠΝ αλ. 1ھ‎ us ا ا ا 0 ای ده و۶ ا رد ای‎ a Era ^ B ο OO s eer iade Ap tuned gore em 
بس سی رسس‎ DER سس اس یس‎ E - ٦۹۹٤ ۱۸۶۶۱۷۰ 7ج7 چا اسب اکب دم ین 1۰۶ھ‎ Μετα. vera « tie Ῥ Ην m م‎ ης ہے‎ 1 t w E es FIVE PS! ۰ ihe Lo] [ پیر یرف‎ RU ho^ HOW TTD U FI a TAPA I erre reri ECT سید جیٹس وہ رش چو یں سس یں‎ ^ie 
esie ere TET rera ar ne να μις Pht να پر‎ μα σης νὰ ٠ NET a xar oq AA Lr کال ۳ اہب رئیا تپ ۶ وائ سے‎ TEE T. reel یں ا‎ nba cendres vro EU او وسر لک‎ À ΜΟΙ ορίων ο ا‎ 
sd ا اس سم ہم لہس‎ Cee TEE ΤΆΩΝ ΤΡ ανν نے وب‎ e a ae e dd ΗΝ hg coner Nauta ° ΠΡ a νο «άν dd ا‎ ΥΓ ری‎ me, Agel ΩΦ CE r r Οι ΙΟ سسریہ ویر ٹا ا ا‎ η ناو ریگ‎ "rey soar], eg Hog ia y e rai inr ο ών posi mt دم‎ 
ےس‎ eu IA یک ںا روا‎ E par rbd t Ir c EP, νο CR D ko c de. tipe لے سے وو سار وس سی دی انا یی وو ںی پیر ای وی اوس دوب ما یا رت ا پا‎ spirit eripere ener rS 
Me ای ا ساط‎ guia oed era απλή EE CCS pube dd ΝΤ کنا رر‎ ΟΝ. Ngee ντα κα e VUA opp N ou St FACUMT uf πο s CL ὦ, P SH, κ e gone Ce rui. V rhet ehem LRL κ سج و ما کن میا سو مسر یغرم ا ا امم‎ O ا‎ RA An t re 
ال رو یں ا ا ا ا یرف سرچ کس ا لی دانسا بر بب‎ Pen D M db ec ۲ ES H drew Ἢ " یں‎ rie s TK edd ر ا ر‎ A UP Pr ARS Rr TRE EUER Γον) ο i πετ are οσον ey 
πο ea مہ بی تس‎ ae رہ می‎ peior o M n DER پیا‎ vun Won PTUS ا‎ a arr UC IE ΡΤ ΤΝ. JO ΟΣ, n ώς Meg Ma o «Ar RE πο ο αλ PAY er PA mers E چنا عم‎ ΣΑ r rb ἔμ 
e β΄ 0 pater mor EL ut Me Ea a dd ποσο πμ σι A no " جا‎ E گے‎ Ai cyst μμ یی رر رر ال ا ا را ا سد کا ا‎ τί PUER Jh a ^ لس یی مر ےنہپ تی ری‎ "v p 
ہیں‎ r > YO Y و‎ [bord Led s LJ t : wi PF لوا ری‎ 2 e, ° mon ٦5 ἃ ΤΗΝ... " Pe" T Pete]: Qe, ete پان چا‎ hg ہک ا ا کت ا ا کی ا ا ا ا شر دہ شا یں‎ MAPA AR pn στον τ αλά, 
ا و لت ہی میسو بی ےس تر عو‎ η ا‎ το ہر را‎ if ura: UO RD ey te Ημ, ολο, 3 ΚΡ; φον ο μον πο, hys m s Fx DP M qe 4 وی 0ے‎ ets D سے‎ AE A 2 لد لیگ‎ d e e [WD M PPE ہے نیل‎ I چب‎ were Ce r OE بے‎ A 
ώμο کل اص مل کر‎ tAE ا‎ T ار ا ا ا‎ o ےک ہا پا سر اتب دا‎ EP ery A Pena "I. A d s dpi eh SONUS d pd dae he ot tla Asm ریا‎ ed he dete dried er انیپ‎ ef rye o eee eie e BAT re orm t Canad لمسب ای شر بل‎ 
کے کا ای یق ام رہ ربمم و سس رت رای تاس تی مس یں‎ ῥα ην fr tein A Επ سم‎ wı Pas i 2 πο t as CBS sO رک ریہ فی رہ‎ TE ہو ما کیو‎ T. یا‎ ri یسید اس چم چا حم‎ 5 DEP رٹ یں وسر سو وی ہے ہس‎ 0 Ne aes و م رتام ی‎ rea abt Dard 
A DAMEN TETUER a ea TET ee eT) ο tO gr ete Fe Nn a کی‎ 9 a PE ا بر‎ A TRE نہ‎ ee اھ‎ a AR AR ACA rrr ο ο σα παπι hereon 
πορτα τοπ πο DET novo Lat ML a μονά αμα ΚΙ ΗΝ; کاو وج سے‎ ον aaa αμ τπτ, 2a mA as ud b t. "Y rre τον ες سس‎ dc diet t Pu δν εν να Ιμπν ως ںی‎ PUT Ie eon) ay μιλώ ٹیم‎ 
ا کر می سا لت سس سس سیت ہوم ساس تہ‎ aer PT TICLE e پر‎ trm i-us NO NO s ۴ 7 ino t7 جا جا چا‎ "(^S uu 2 dae de f epp وہ ہونوی‎ RA a tr RS ROO TOTP رت سم‎ e 
x ۶ al EL P s... . P ` Ld 94.7 "y i η x YES + ۲ « a ہےمف۔‎ " ε.φ" 4 اپا‎ x "id. Ld 2 ü r 
οσο EE T UU UU pee ie Te Re ARDET χο i A KK. امیر دی مہ موہ ہی تر یہ ہی او‎ TZ ERE ہی جس سس سک سہعسسوسرے مسب سٹو سیا دشر‎ 
سے مھ ےئوس جس سے‎ red ہے ا کسی یا تی ا ا ا ری مسر سام اہ ا را رت‎ απ απ ο αν κ πμ, ο”, «ὥνον SME sete ka tel Py op i eire ہے بد فا‎ ae etre te Hw Jae eer ree a Precor ia y te un ο» 
ہے رد وی لت سی ساس مس میں‎ E I PE SpA e pep pte dd p etian jer ee μη LCC LEO بیو لے ہین‎ LENE μα νὰ a». T? P v νά ᾱ- - sd ΡΝ δι Pede: Kd : Jd ult μον 2 a ہیں پر یں ا‎ a جم می دی سج جیا‎ TT eat 
[a Ma d m" ΤΕΙ ñ [4 ینار یت‎ PCT eis caf. m -— "deor : m f Š f dh e qhe $ - -ᾱ » Ὁ δρ ۔چیر‎ EE 7 To ہین‎ D D 0 E 
”تہ‎ e E EAT A Tee A سو دس یل‎ S E EIE LI EE سج سس‎ CE BRIO II O e چو‎ +Q κ οκ κ τος رر انا‎ ER بت کہ ہمہ ری سس مو سس سح ہیں یو چس‎ 
> کن اک کا ےک ا و اد وہر مسر ار وس سم برای مت سز سی مج یس لیج سے‎ vnu "NE οι μι ο اس وا ب کے جھسم‎ Fa و یہ‎ : ν يت‎ fu مال‎ yey N RA o N IR o N κα cm ete ofa ον πο. Peery tose rent, Sen ta Pe dee ty ED TTT RATER 
τα ο ο EA γέ nC ا‎ Τα ο; EA E D. pare he Ακ ان‎ λαο ση «ΑμεΑ irr P ο κατ σος ===? 
po. ru eire OP نوس سب شپت شی اج‎ ο μα ا اہ‎ FPSO eh d r IN ACE AW Pe de told ΓΕ iY serve? "UI TIT ہیی ا‎ Er OTE ML M E Bi جک ساب‎ stie ded Wem ap E eo eie NR dr Pi ç IT d mo νον ο ο ο Dg i ir چرس ایم‎ 
4 کے ہت سی ےس سس‎ κο TT پھر ری اک او ا را سے‎ OUT IE So پت‎ pr O ΣΣ ed LT. “ΙΙ AT. یج تھی‎ ~ má ^ hê Fe + ا‎ ο δν ολ احدید‎ found CA mare w^ τὸν. αν دب‎ y y نو‎ ae ο 
مس سم تس مسج‎ τα ο μις γε μπι STE e papi A ο ا کی‎ ΗΝ ΑΠΣ ΧΑΝ μ.ο یں‎ ΠΝ ΠΤ wat A pp Dr E “5; E سم سر یج‎ A ap dett اھ ہپ یری رہ د‎ ٠١ ۶ یگل نہ‎ ٣ ۵ اا ' ایا‎ TIS کر‎ e Eae میم اجس اپ‎ N pacer TO 
(Sano rm OEE EO ںا ا‎ O RT OTI rit tr τμ. رر‎ E PI EDI dera PÊ ΠΗ ρω... ή os 4 υπνο ο d) κάν s ΦΚ». ΠΕΣ id vet ard IER pre SE em AR سس سیپ یمیس دنر ہیوت‎ aka 
a o rrp TT Ly 1 iq laptop te A sor picem freien i Y ώρα οκ A pum REALLY NS RTC Sal a dh elt oF y ή Qu es d Sa | S eec. ο, 4 Se ερ. í P vw d à ο anat Pye Pe - ASTER eer tern tye | indies eit να SL eor سست مہہ ات سم‎ a Di tn Nee 
bee PLT dn a وو سر‎ beh bere rS a beard renee αχ κ rd ΦΟΝ XEM πο ων 8کک‎ Ισ εδ x PR ea wy Pee te ere P em es COSA Ep de nt Av SEN ν ο ΟΝ δη دمەخ فیپ ود و کے'‎ τα Fi edes porvenir Arendt eei vicia qu po positi pide ind 
τοπ سس تسس سر بسک‎ ER ett PESCE سی وی‎ AP TEOT TOTT E ΠΉΡΗ ESLP AN a a τη rina یں ہوا‎ x "Ee D E : d pure er vey ere ar سم‎ ld he adie i et مسبت جس مم سرد یسر وس یرس ہی ںییہ چیہ‎ n 
OTT edd ےرا‎ raid br Αλαν Αα o S جو ا‎ TREE A je dta rit, " سے ےد‎ dhr gee me) یں ہیں‎ di Me dii I ers Ep A TA o κ ΡΕ ρα οι μον E 
μμ γα ο at hall aed πασών. ho pa CA μμ mne E 2 Sa Ea d νη PA a E La ics τὰ. να πο μα ο πο ai کی ا کیااک‎ ρα Pe Ya ut: WT τς didi RR o redd 
Poet gd RI E nar D JP Puoi Τὶ μαμα μον κκ UR ایی‎ Αφοι TY 1 eA a AN E CANN ^ 3 Dv σαν TE a a ea یں میں حتقعلحمنیا‎ apara 
E ی۔‎ t Λ bar e de + *i ν Ὁ دی‎ uo» ver ο m — VI^ "Tm ΜΗΝ ὑπ τ عہمرو دی‎ P app Aa Te > ον te ron e “πα RP yore Meee PP ert ha d A 2 مج سن‎ LET 
or our ideali κό: 2 ری ےھ یہ‎ ον. ο a ας ' ν αν © ο ο σσ een ain ο ην δὴ Pee rare ee Cree 1 ا ا‎ e Λβς-τργτοσεος-ἳ 
"mue ET! s sS, رم - یلین‎ P پیم دی نام جس ۹۔۸۹ پا‎ ον ο... Γον mtm v -4 Mini dp rpg re Fe eh peek reer Ribena ptit ο μυ... و‎ e 
یں مہب پیر‎ ΚΟ (φον απ ας r BA EA my یسام دش کیا‎ pent emt prep re ACT TLL E جم سس‎ 
ον φον r x mia ہیں‎ ei Laer abeat qnid Pe i φωνη با یں‎ a 
<: موم سی وج یت بر ہل‎ apo dir pt ο ον ον τος 
Rr n یز و‎ 
πο νφν πο αιμα 


be‏ اسیا کے یی U A yapay‏ ا ا سو یم 
οσο.‏ 2۸ت جہ ۱۵ αρ Se RON ERN. w T κ.‏ 
el ΠΜ de eld be‏ شس ایی بر یں 
pt PN ΟΝ A scm‏ سای بی ہک ο‏ 


شی سر ار ےر رو رٹ m n‏ 
E "rue * "^‏ ا ا ا ات چا 
n LN PL MN AREE m a far‏ 
رکوہ ۵۶ل ف ۶و حیف < ا ο. Ἐν‏ ا ا ا سا ا ا ا اق ا ا νο νά‏ نا GS RTT Daa‏ 
و T)‏ 4 
ο ου οὐ.‏ ا ا οφ‏ 
























να ον.‏ ر 
Sable μυ λα, :‏ 1 ام ad‏ ق1 ۵ 7 ا ر 
puri epee ee NPY 388 P dU ARA uo N° PL ο ών. μμ ΡΟ te‏ 
of orar a to A St » * way ;‏ 6 او ا ο UR MS nar EP AR hes ΙΟ αρα. TET reat‏ کرت دع سوچ مب سے amic F‏ 
qe‏ وج OPES STI pa Eh T TTT ETT LT dil dd Pea ΝΕ aa rx ک٤ γη‏ مو بر ΠΟ ΤΟ‏ دو سس برا زی مہ سر می منص سے dpt‏ 
ww d g^ v Peg - aes ug‏ ہم " 5 aurei: ολο td a s PP ee al 1...” απ NUR κ eee NM P" ΕΡΕ ٣" w‏ ا ا wes > ener ge e ος πα όρος uocatur‏ 
we ~ Fees P : Few ER CERE μυ Ἢ πο ανα M .4‏ رو یں ¢ feof‏ « اق n" ο πρ απ ορ HA ICI iane gu ar otua ώμο Td EEE TT OE vo‏ 
αι‏ کا ا ا ا rtt an Ne.‏ نے جو تہ کے ہنی ο ολ αι aN ryz I askeri‏ ییحی ہیں مہ مہو ων ΝΟ ΝΡ‏ یا نک زا ο er reu rore‏ فی یمر نس سرب سے مل تسپ سی مس ہت یہہ 
mA "Apis "ass‏ لوم پا چ ο δαν. yer wi r e Der ec ELA ορ ο μονά di ade‏ تہ RE RS PET E m 1 tet t gru e‏ یی رب STO Ed tea EP‏ موی ر Sr ay Wee ee OO Tene at‏ پا و ا ا سر و کیا عو سے سب سی سے ےی یت سے تما نس مہو 
ER uet d v Ri RV empate te de‏ ہے و ا ےج جا ا ا ا نقم لہج یھ جا y ET 2 a a te ae os yog. doit‏ اد δν Μόνα” Aye deleto rem DE pee deg 425970 7 Abc‏ رپ οκ κο ο ας Ta‏ 
ivi meuf‏ سواہ ے سوج رسپ ہدیس اج تید ملب یی مس بش arana‏ یں ον ira tri hop ber pibe ar c ERR. M OUR dr ien‏ ھچ در OE bh EPF E m‏ ا LOS EPT per d Ἔα ppm ΡΕ ΑΣΕΝ pre ee‏ ار ا ا اس را rT‏ ا سوب یی ا ا 
TM apa ik b 5 x να my E 2 34 aee doi PA κ ς P a QUE de rebate ger een eee POR Teese Pr | eee ede det pbi φώς ας nre‏ ا A EIE piney WP rT Leah eae (NM o pe TI Ls Wi aii‏ مت یی سم مد یں 
ne rey a n‏ ا ا emi Peru mp IE Y ουσ. 75 A a y IL a t dede D e Μο ο Μα. h sade‏ نے مہ - roO anqa pe drerit d‏ ارت Kal O,‏ ا ا ا رسس سس ضا ا اک سو سم سم سس شر 
οφ: e eo qud qa eH &w oc tect terse dee "i arai reque rtu A Ere qe tust‏ کھت "ases‏ وس بی ہے ھی LS eat ea ie Jem ur AREA or ΤΝ‏ ا ا ώς‏ سرچ کے ا ORT ee OTE Re‏ حم سی تیم مس سس سج 
E 2 μας ο ο emendis upgrade‏ یں یج رہ E nad‏ ا ا ا و ا ا ا چان ای hs A E ISAPI‏ ا ے [PPP Αφ"! φώτο ο ΚΡΕΑΣ a di NP D νο, OL Fane‏ بل φον αφ T‏ اس و میس بر میم وی کی ہت eere aer‏ 
ی ن ینوس حون شی ببس یبر ام ہر مم یں مھ سای ہے soi e Aa ΜΑΜΑ Αν μμ‏ جو جا o Neo T A Agr e y^ qt Tdi itt E "dh Purges ey νη αν‏ واج d Hippo ae‏ کی reae μον ιν AS pee i et‏ 
a Bwtaw yy apu Awa τ.‏ 4 جاھ دج وکان”حمہتام سے ےج ےد جڑےہ) ۷٠ھ‏ ماع nee cap!‏ ا ا ا ا ا ا ا یں ای سیر رج بر K sota qa? a Th T 3d qi rd b ter eu pep hohe pees Ra? OP‏ ا ρω ο SOE erp T TT E O 154 T T E aaae ai di PCO E a a de PI EAE ale Ου τν”,‏ 
E‏ سم مہ ونب ےس تو مس دس س دس رو اہ ریہ A αντι‏ میم نے وس امو τος — ey edi orm νους mt Sed ph Sng, ibe κάνα N/A 6er 6 SRM NI‏ ا ےو ناکرا ھک ود lake al tne A ρα SM Pye Wares Spr ar‏ ا ا سو ایا νομος aaa Vu v ta E qa prever jode‏ 
οφ νο rep r‏ بی اس اچاب ag aes qase trae‏ سای ہیاس جب میں ےم ین۔ ον E “ΝΕ rdc anoo > νά ων det‏ لگ ME EE‏ لک st ΜΕΝ‏ ا ا بای ا ایا ا ا ditior τα‏ را ا E aa‏ ری داد یتر سام سس تید مس لت سے ید سس کے سس — 
ES) env μμ tp err gere σσ aa‏ ا ا νὰ ας‏ یپ ہیں Jute Mibi, dir‏ و شور ا یف ΡΗΝΟ «μον ην,» pp N‏ ف scusa i m E aquai ο ΥΣ όρος neh eet ew POY PL PORT Me ae NCIS rare ee TL, S Er Pia rd‏ 
ا ο‏ ا ا ا ا ا ا ا ا ا وو مم o PP i‏ سے بل κλπ ES‏ سان e ne‏ نے داب ' Aui dE po TE‏ لا یی ا ب EP T a‏ چا ےیجید ΤΡ μμ.‏ ا دا ای رت ا κα‏ ا ا ا ار Td‏ ا سو ποτ πώ» άν μή‏ سو سے مس سس سے ہے 
ت ER ELE e a o‏ ا رام بای κ ο ο. Κορ ae EY νο ναό να μμ. n‏ ا می ہس کوسو یھ پر ہب ΟΝ Φε |o dmt ic DES ιν UT‏ ا لا E OOD ADE VETT‏ ا یی رور ا P‏ ا ا ا ا رر شی سور ایم Y‏ 
ὅκως‏ دص M^ v A AR TE RP T TE TE Crna EÉ ETTE TTT 1 E a ONE ROTO r alo‏ را i —— viret‏ + سا ا جا ποστ eR er a RC LT eae ANT GE TOT OT iada νθε OPT endi d MUI "^ F‏ 
dada, crease ad Κι‏ اریمس مس ساجہ سرت خر ج ولک نا t DS i-a cd dh Cop otii dires‏ ا ا رن Aa cg sedo E de‏ 7 مور ا λα‏ و rac‏ 8 سم ا NH OT geh Sy‏ ا Dg rr‏ ا EEE ROTC A κ. ohr pity‏ ول می ےت rrr RD E rc‏ 
pq‏ یٹ rar‏ یح اف PEET pea‏ نو سای بن a a‏ وا وج ا ا ا ا نس ا جس یمر re‏ و ہج ^ Š‏ ہہ چا سی کی ےم ضس TD 2 oF PEP PIE OA AINE E ΜΡ ΠΕΡ Μο φώτα Pry ο rl. w PA‏ پوت لیر کت رت οτε SZ SS SS‏ 
٠ v κκ ωρα ην γιών‏ ھا۹ دہ ہدم رس : ورچاچھ Mm Medio a Mp £ Sealed iri u αφ κ ΜΙΟ Αα κο iui‏ دو e PPT‏ لا dA er ta ao: Jo fra to‏ مر ہی یں E a Pe κα ο Φα‏ مع عم سس مسب سس رجہ سم ہہس ٠‏ 
pa mi ev era a E E ERREUR‏ سنا مھ لیو جس ایی beater ate‏ بجی ara Ji aad‏ سنوی A e omi A ΕΝ ΡΝ‏ سے و TT ^^ « ποσών‏ وہہ jebat u ΤΩ nm πω μμ‏ اچ ος‏ رو cin idi‏ ا رد ا Yaya‏ اس سد سم سم سس سے ہہ رو 
و ےد ےآ ا a‏ اف سض ا رق ا ا μαμα ο‏ ا ہے اج ο‏ حا جو a‏ ار ا مر یھی ےی وع ہے ےا در ھب مل a re 908 a9 wh Mu Nido ων, ών 6 E ο ate wn ». fe A e dedu‏ ا ا کا انور لو چو یر یر ریت Se ate ee Oe ee a ea EE‏ 
usada prie aped pei‏ ا ا ry erba ο...‏ ا TO E‏ کس ردق جب بر ری رج او ا E M κφνφ vp φ kA n "peti al "be a+ Pe dl‏ ہزرہ گل کر جا a en a cree yam c yn "ar | »- degit‏ ا ا ا ا ا کم A CSESKCSPSA E de oia‏ دی مس میس یس سمش سم سم ہے 
S‏ سی κο αλλά ο αλ νοκ νο.‏ نرہ یتر ای ری u‏ کا Pr‏ ا ھل ی جد وچا pun a po ` - M queda‏ ےہ مور ےر ہم nit aet a rut Fe uo ου —-— HC Y E‏ یں ο «Κ΄ FP‏ ا reor‏ نچ وک ا کا اسر مار او دا ای ہے ا ا ا Tare‏ بر رس جس دوس سے جب 
A‏ ا ا αμ μμ‏ ا را ار ات ordi ge. αμ. ον ο ο cit ne A an nd d ks a Pr ee ee γα‏ ا ^ مس ا re O P ۲ ἂν‏ کد ہیا د وی T d e PAET ET uc mew ox‏ ات ا ات ا CREE ERA IIT EL ont‏ سم مد ο στο e ABA‏ 
a ο ασ, άν A ER e AER ARES D A NU ARR‏ ا dive dod‏ ا اق ا ا hua Mic Pir pay‏ یا سواہ کہم ےھچ a s 4 = a Dio A den‏ ا ا رس کر ا SCOP να.‏ ہرد یکین یی یی ہر سو من ا ا ا سی دم ο τοσο A SP‏ ہہ 
Ae he = i, Bede παρ οφ Ἑ πα ας ο ο cie .. κανα ας κα:‏ سے جن NER P‏ جھ METEO ES SI ρε ον να ο REN rper and rin di Med TN > Ta ρωσ 5 —— SU und PR la M Je‏ 
SL e UR DA ed ande apat APR DT rtt etaed Ps A a e a aaa ὀκάν ϑρὸ‏ جار بی تب OS Ar E‏ مم وہ 4 ,^ ۳ھ Ye sa‏ ا e κ μη οκ ο νο μμ TT nate en POI ET a A Sa skua We SIS "i:‏ ےی 
ον amatek, ~ S: vane Pree E a‏ ا ا eee ere eyes Ory ee‏ مد E ef m" "8 alit‏ ہت پچ o Pn ο EP Pet ape ede de η‏ ماگ ج٠‏ ٣پ‏ ہمہ ارہ ٠٠ھ radar tepore raras rur PP PH PY PESE M) μια t i ls PRA fefe Polo io quf nint tere‏ 
pn e Te‏ اود ران ےچناس جا ردان اچ یہد سم ü‏ 2 اج یچچ qs‏ رل ا و E N ΟΣ, tA 1 s E "LT N wy w πο s‏ کے و ATT PEETA CALE pum LP Lr ui μα ον ` f‏ و ا تس ο ας πώ E AAAA‏ 
Puedo di‏ اہ یت ا ολ‏ مد ہیک جج جا بر مھ EE E Landi m‏ ا دا ا dE ui PT‏ نی کے ٭ e POP pm bm κ ας ο TAY d‏ موی ۶م“ νο μι ο SNA‏ میرم ما ے7 ا TT‏ را زا بی iud i‏ ا سار مرا اہ را a‏ رس ρω‏ 
ο ο ον σνακ EI E‏ ۹ہے۸ a DS LLORAS‏ ا ا 7اا یا TNs A $ M A UV Y‏ سای وس نے اوس «αν σσ σης ος, ΟΥ ν μυμώ ο μη και . a p στα "t " n"‏ 
rais T a‏ ا جار سس دا ا anemia‏ ی dien mds d Ὃ iste pe "^" ο...‏ لاہ سو سد مو واج و چیہ ان ہا ip Alle k‏ تہب μα m‏ رات m rael P py ear ος syn sasa er dee‏ = چ چا ا ا 0 بی up m Pro n c d‏ ا T‏ ین ا ری 4 podio e‏ اد مم مو مرا وا رات ہاو وا aed p‏ ا ہن سوا سو 
be BA eae "Ree E LA σος Bade ο ροκ hat inte Μι Ανω κ ο ο a a e‏ س ا سے سس یج ویو و aide RA‏ کی کے کو که ee th a Mot pi ΡΟ al eal a kya Haie bd‏ مار ed edhe ER RE S EA‏ رت تو سس مت سس سم a‏ 
hab irap B qe ae "gae jn d pede ES κο ο... ο ος οφ λάκκο ωήκας‏ ا uw. ` a‏ یھو ور مہ جب جیما و ےج Fe:‏ ےج اتا سد خب Ολα οι iia Sten ασ C‏ یا eta une oP ον‏ سے سی ے سے di‏ 
da‏ ا ا ا رہ اچ ا ات رہز وا وا ہے ار ون ادا ο λα. pied nt sha M Ἵν‏ کی n m keh‏ ا pais ee eer rr‏ ہب8 wr M x‏ پ4 ZYY SAYS SY Ie I EE aep ών ών Φε νο TREE CO ποπ P 4 E, cu Se MES S py A‏ 
θὰ λα gah AD te Oe μα PLOT φιλο tinta:‏ .ا جا ا او جج de da pie docti‏ ہے وھ سا ہے کالاچ it "CPC PA ner T OPI s‏ سو a: ο οσο A O‏ ا کا ا ا ا ا سن od‏ کر ایام ےیل و سس ےس ہک ےی ہے یت یت رصم وھ ہے 
i Lo 9 c4 2 PATIO p A4 νο το Rea! Nur‏ وا ا ον‏ و κα; πο μα μμ μυ trite oe eerie άν a‏ جو سنا poli tf at‏ س چ P yu‏ ۴ > هین وی - Oi co^‏ مہ 00 S e ο ον σος Maur au φας Του δα Fin πώ ο...‏ 
e ET E E Ὃν, e‏ ا ενα‏ پوھست ود اوو ا د و om eh a ore Pere ee : κ - M 4 dd um ot‏ پچ ا E N n m ^ h‏ سن رر T‏ ہت یرجہ ojo beh mee eub PTT ibid i‏ سس در ےس سو اسنہ patiendi‏ ا ster trit der‏ 
ο μα φάμα απών ο ο a‏ اخ να νο eh, p Na rA m 9 ad ο αλλος‏ سے میں σον a “A . νο ος κώνο E As M t Ἐκεῖ, πρ cde 7 v^ E ERI ο ο ae,‏ خر ہیس ےم یھ میم esc rior a p gat pm D E di dd‏ ری RE‏ 
مجھمیجتے ہمرس سیا حج یچچ YR MR IR aei P‏ جار کرو ارت می ا راد ρα Επ πα A A ος e rp P edd ο. E "Td "ar . = x .- ΜῈ : : νο λα Pooh Ae iet‏ 
μου ο καν I ADU qaot OE TR S eR aaa died‏ چا جا ie‏ نم ا کے [ape 9 JR pipaq anpi πον ΕΚΤ teed‏ وی جم OT A DES da lan a 9 gw M ۳ 8 Me ed “S ey‏ ا ار PT a. Adal a ent PITT ppp ο ea k haha‏ وس سی دی ا ER‏ و مد یم ےر می ید ےمم 
eh de e ettet Pp aereo e pee gena rr‏ ابچ دید کی due fable ie detnr‏ سد جو وس d s‏ جج چ یرب M hy ἁς‏ نٹ م Bev Patient tede Pol s MY ota egre e a TT a i-a tee ny rae nee P 8 pv‏ را را e perd rale ise gin‏ 
ο ο ia eh tie ο ο ο e eee μι ERR qM EE S imei‏ ا in y sus KA p‏ ج جرا reye ωσάν Weser pr Ec oen Pip qp Ca d aga A i.. bs K dr ddp e so sapa κ‏ ما ne oy‏ جو سی ےس 
S kaa as‏ ا d τοι μοι οι ἀπ αμ κκ nt E‏ سج ہے ا Pie Pt ee‏ یت میں SEE LIE IE IRAE ERU ER vost be μώων σος ο ο ος pe iy Pee ο ών» patet Aet onu s $ A NG PEY οδός κο οφ ο φως ο k P‏ رتس و شس سس لس تہ 
MN ee ue ση v Ts po MA ape ARS . V aum A EN L Pa P so λα a mone v oe ee Ee icd eedem ape r DRO DD‏ ا ا ων os φώς VIP‏ اھا aD a a E ΣΟ‏ 
gk‏ و قد ا ا ا را a a‏ اجوہ end Vache ain anda a ere Oren Ly Pre Ὃ a‏ ای ار یں ie,‏ - نھچ δα “Ὁ api‏ ِب aie T i m EE Ιλ ERAI nae b ο... psp μμ Φα μμ ών, " ALES Πο ραπ C= τ m be‏ سے 
u aaa‏ ا ھا ا ا ا ار داد جا ا وس شیج απ νι O ice p‏ انج pa δρ.‏ اس سے l Ce 5 a Fé idm wur‏ فی وهه به Pe St ων μα î νι «ο ας ων ες εως αλ‏ ا اک ایا مر دہ دہ سوب وربا یر a pda‏ را با 
epica apuyaya ος ο κοκ νομός‏ جوے E "mu M MIL CIE ο τ“... Aene cre hg areae rh ae bi Lt dere EA‏ ۽ E‏ ص۴۱۱ T TEE p) TD μμ ΜΥΣ Le a re 4ἱ PE‏ ار میتی وق کس کی شف bal ore‏ دی دی و 
es T ^a Vut RP at Pf, We ne mado Ne ὃν riy araya gph‏ ا ر ουσ, ΗΝ he NT etri tm,‏ بن تی ہیف us. pes‏ انیب ` OTT d Vor o MELLE ΠΤ ΟΣ ΙΔ. η - Rez’. 7^ ۰. x< eue Pt P A^ δις -ᾱᾱ- τ‏ سر RL eh crete Sih‏ ا ۲ رو درا ور دی νοκ σα deest o‏ 
eit tei iig apt‏ سو سیک رر مت دجے باج جبہ جو ید شب بیج سد جیا وہہ md wee 4 f E ee M V Purto tera UN a ο κα κ τον υφή ER‏ نے E δή TTL mmm t d ^ o. e "Pado‏ کی gt‏ ا eT a ee OPT TDL n‏ وا کک ا و 
Seat Ie a ar‏ -ج رص راو h rp ον» I, Lanier den ipa t Ag Ro AUR At‏ وو ST s n WO Ag P y re νο‏ ہب a ge degrés O μὲ O OTO GO PARERE r r gp ώμο ΟΙ‏ 
ne ec TT u papa didit‏ ا دض رٹ کا hip‏ من وج υπ λα να ρω re Ng tet Bane srs Ae taht‏ سس او oe MR ` δ +» "ovy" Ed dod qn CM‏ او T dim Acer sro om oa! SP νάνου. ΝΗ μην, iib AP μήν Φα ΤΟ EYE iei ana ua gat MENTRE CUTE ARP HT PED - Um‏ 
EE" aera‏ ما ے او eee arare‏ رد رنہ جرب سو سے یسا ap nS ML ate dor qd‏ سد اھ من پیم جو Perd AA ο M E OT A es = E aa F dap‏ وچ ای ا ا ا ا کک کک اکا ا اس رب پا yh:‏ ضر سا nan e‏ ا ا .ور سا | panes‏ 
s‏ جا تا ےلج چجووا a E‏ وت چو ےت di onte pitt‏ جم ری μα a VOUT Ty Theda Rw‏ لیت یہ P‏ ان وا ہش e‏ سا یی ا p (e ET DECLA MALO αν ٦‏ جع سو پر کس rated air i erepti Er aap ER, qi qim et αφ Pr MUT ba‏ 
ESD x Q αμ qi wishi TS‏ 0غ op * " P ο, TET. f PIP Wy ٦ PT] e 250» hi M. AMT Er eq ll qt, ΡΕ ΡΟ σοι πχ wa Ae a‏ ےپیہ ΙΡ ΙΝ ΤΕΝ ΤΟ, ἀν f‏ کا ΓΙ; psa ΡΗΝΟ ΟΝ ΡΠ,‏ ھجت Anenii ena ennert a,‏ امش وت و یو وس 
Annas stum qud red‏ ا eed iri e eyb riba‏ داد پر ہیں d‏ ہے ا ا ا ا دا Ap p‏ ا ا سرب ار دن LT ed Mgr rob o RE d E m . σα - DET Aera A‏ کو ΡΤ‏ یں ردان etd‏ بویا و رہم ا e nT PLO rT‏ 
sated ne z RCRD TRIS meque‏ کے اسم شر ee ES νο σος Le κ.α‏ فا تی ae e diet ten Sod‏ . ا au APP Ὁ μα‏ مہ ۲ Perr td S‏ مہ سو دو دی EPR a r ur aida ly apr O O TL rte A OT OT O DT in 0 ri Nd‏ 
Err t‏ اح بد ھا Por onde di A apap oe‏ لوت ΙΝ f Mount NIE Ax a Vp ES 2 h ; Aa M PP UN > πιο Αα πα ο λα She a‏ ا ا ا ا ا جن ge Mp νόμο μμ E inaia ο ο Ed‏ ا ا ee eer μα ανα να ἡ ο‏ 
سو وات ی او ا و te. Ct a het z Dn er‏ ا ا L oF νο Ἢ ΠΤΙ g ' E M " à eene M dct ted CU A rade ela) ho Medii dn dodici ddp a‏ مو وص دوم οσον ον ας‏ ا κα... po deu y an fe ET irren a Msi dri di να.‏ یں ο.‏ 
s haah:‏ ا ar e‏ انا یھو سید "ren‏ بی کے a aa‏ ا M νον».‏ ا اد یں ملسا ری "PAD ^ © "m . η T -0 : ^ - κ M‏ و YE POE A ila Abd μα mote nd PS ρω μου μμ ο A δή‏ سے سا جو so "n of afa nt a tn‏ 
RET eden iin πως οπως‏ ہاو مو ساس ا اس ο αμ ο ER SUE or ο ῃ re 2 4 E Ἢ μόνα», ny re eee eee er Cre Le de h PE EEE RS‏ ا لی ا pupa aat atti en a t ai D AC ASL νο φόνο Rari E s astaq φησι‏ 
hoq ο... μον TT mcis dinis:‏ رسک “Ser ispa K uere PEE eae epit À‏ بے ریس "ED‏ هھ d τ‏ سر » .4 : e D‏ رک e ο‏ ام Ανν‏ ا ا ار ا d‏ ےت ےا اح ا ا ا ا ا رہ بے ےا ا sn‏ یا euh,‏ را ام وا اروا ne u.‏ رید 
E ο. ΩΩ, pepe oo qooqne d Ag MASA a umasa aaa pns‏ و لے . -ᾱ- de dd‏ ا d EP OE oae d Γκ ad A iyo (f ο "o mp né es‏ ہک ad e D Mene a a ai FEIT rA‏ ا ا ا جو ον‏ 
ο TOT Panda Ay d M pana ΡΥ ade cmi yp DEES‏ ع امھ ۹۷ P ۴ P 2 $ 4 z - Pa te ΤΩΝ yo e+ την E‏ سی ipi „ ΥΠ ett‏ رس تس ہم کر ہہب 0 Vue rapa ari a DARE TA EET ΓΤ ρον el‏ 
سے دسج اض دح ارہد جرد دحا دج سرد جج دسح ہی جج یہ دج گاج سط مر "EE ων ο... HS r A‏ راہ ےم Πω‏ شی F 0 3 2 de.‏ و دا S IT AE E Puis A na‏ کاو > ΜΎΣΟΣ ΟΝ CE E‏ رور تہ ں رٹ ıa a.m. Tne inant E T Μηνά μι ιά ΤΟ. ατα "LII OTT)‏ 
ied dU DT μονών κ‏ اد تا دا O aT ee‏ × مد TOT TO‏ د ms rrr id ραν, "αν Poma Σα igs o A . - 2 δα Ss h I δή‏ — ے aun‏ 
Do rid‏ ان ٣ں‏ ا ا بو وا جوا ERE 3 - polite es μα φον UE Lo n cake ce ία, aa in pint‏ + 5 عو و ۳ "e 5E‏ ۔ ο SS T P‏ ا poete ed Mr ro mali ciu Vip OA ρα‏ اس ea alan nh poate‏ سام م مس ہپ 
e ESE EDP TOE DD a anna DTA‏ چوس œ P a “ΦΜΑΝ, i a‏ ا ی ی ہے we - f ` " A ET , zu e‏ سی مر گل aids gioia go ΟΤΙ ΠΤ ç aga, ge n‏ ادا کا φως. ir ee A le a δρα pP vided ho‏ 
p *ə ve ananaw hawas preste e side i aa‏ دہ جب وو جا جوف p Amn Ἢ eee te Tt n. 6 o ^U V errr EES‏ موھ 4 ο a = M $ Ek pde.‏ نت ۳ ο” i T A "TT E pe‏ مو می چا اس Mero‏ ہے لد نل PTL a‏ ےر یں رج تک ےر ا کہ ی PT‏ سا کے ا بر a ¿u‏ ا ری ا ا arr PT‏ 
Pe eae δας «πὶ. δ pai eren ὃν bd οφ μονο ων aE ο. i‏ ری اہ ای ہن ام می مد B 4 5 Py 2 nat vw‏ ا یھ ہت A is do oa M ώμο ο ή μυών μμ rot τννν "xm ed 2 à zn‏ سر ο pie ος αμήν». Pur‏ 
E mdp‏ ا رن ا ا لہ جاتھ چسزل ےون Pep d p qA P L A Y isan atê) . 4 s‏ هھ mo. uir dada i 2. vA de BT. “- 8 é p t EE‏ 0 ەو ا μάνα ο ας loa μα ως ΑΟ ας φις μι μω O μον ο an μωρο‏ 
A ° camer eee wes Po PD Tec din mre eee rr atl. ba head ced diis μπιν ον ο‏ کھت bis ۴ “A ^ c ^ jaw‏ * ہے umm ése P a e ee a Mod pent «ο ο ΤΡ "mm‏ بی ےر ا اس اس ενα ὐμιοφ‏ کے a r r‏ 
eM etat x ed e wy D A αμα ας ος πα ο ο Grid dido Qd‏ کو ον» τ ΙΕ‏ وھ ty Ws ow?‏ ` سض Y‏ مھ و . E M, A^ P eA‏ - کل و م مک t nm " "ur vm‏ ا N ΤΩ‏ ا سنہ ای ra σεν‏ ا ο να.» πω‏ ا ا ο‏ رر ΠΣ e‏ رر رر تب μπακ np ων κ...‏ ا راد 
لے شش اتا ا اش جا :ا ا اچ جم وو νυν. ο. k pp‏ ا ا μα ο‏ می ہو مھ رر بر اہ کت OE aon) Appelt tray tir TT a == s” φομ ο Py diio tit Rad Bii dt nm ü δ; η ox : Sy, ° XP‏ 
e ^ E s , - > 6-6 4Be 4 = μα τ τ" Ip Apr a S Aaa: dum ος λα. μα νο οφ d lid‏ —- — ءي pet ® Ane nan o i d PVT IR τη, Les d PT Σου eatur arem c e a. Ka 3 ς‏ مہف سرد aad pego‏ ای اہی ری سی 
Aaa aaa Or T pasa a‏ چم ا 2 ές Ya 4 TT TS SA ”, οσα Ba ἐνῇ‏ مسا hs‏ مہ 7 aA siylu a silii ee tee PY ME o on FP rp LEO M P M ο‏ ری ee ο‏ 
d dieu M ays A MERE a potete. 9: αιμα eer tesi get w/o aa imp cp e ^ae hate "art rd‏ رس 5 prir Dpr T E P ο Et ei ert Mois ald T T 8 PME LL p D omm Eq ^i EN -— PLC x‏ ا ا 
سے ا E pora E z μμ Oe A S s‏ و Le‏ ٹوو می ہے pides OD EL A ΡῈ ΟΙ ΙΡ E S ^ x E. p‏ ےل ا ما ا سام جا ورام cid pepe‏ ا اس Ahi str doa‏ 
سی odo‏ ا ا ا ا ا neem‏ یی ہے RO LITO RTT STH Rr line‏ و وی این ی رید A "bred‏ اا RU TET eak "T e ουσ pr yap E AS oes‏ سی ωρα ως Rire iro niai pin Vot pd E datio m ΟΤΙ ELI FEES di‏ 
awr a B » 0 oh e B - vL ra MC UE MR rd rr αμ Pp r. “Se haqa Ολα:‏ ٭ یہ په νο δα pu c N‏ سیا ا TL se oye Peor d‏ مت سی I Tice E ο‏ اسیا ہی 
SO κας ος. ο η μμ ο ο ο το ο μα M E‏ س vd pir πα να ο το πράσα‏ کس ید 5 ft m ed id en t "pear EE bici mro Le. mM ὃν «δα ο y =e + 4 p apu‏ ا سی may ^a a EEDA TE ο αφ‏ کا کے ی pecbeg edi‏ 
aa: Ln ec haapa A m qa qawa qhaaaqq‏ ده ا وډ و ایو ρολ να ο iint Per E ane φώς ο dae νι ^uae. wu A i bd S P dir in ^ " . ` : 2 Pe s. F x aio his. Ç exire ` PUN E a at.‏ 
ie κο αρ πεις κ ο ee pag Rp fee EAS‏ سس رمید می وت era ον αι aident κορν ο ο ο. λα ο πο LES E. PTS ent" s 2 > e` E ῇ τ s Diss cd c ^ pee er dude‏ ا 
s Laser 7 v S , "e 99 tat, ^os ve p Nr ep setas co vetu S mere vem ARALH er‏ اق ا ا ا جات رج ا ea‏ د ت e‏ اس به να ο ο Ta Fa ρω hl ο συ. . νο “-ν «να ες r. “ ` F ES - A‏ یم pp nant Ae P ο σου‏ 
pr Dr OPE νο Ακ ἁμάψές‏ اھچ ا نوی ب ee er νων. ede deli iin w py P parhaan i κ‏ - ا PT " 5 p a ΄ i‏ ا P μον ων P ur d ain J Spy ιών tie quiet σον δν pd. RO τα ον pile‏ ج ای ہے دک سے 
pu "ipei tents E a κι πω κα κα κο a aaa‏ چا ا جا XC ναι‏ " 7مم τ a ρω‏ 2 د« r nn P " PT‏ م αι ον UL d οπού θά οφ E dde Meo Bub f ^ D ΡΜ ML‏ ا سک وا را ار ا یہ 
gah mer‏ ا در چا e pM:‏ ° لہ > ہےں۔ کی × نک کے ος‏ کا ہیف εαν ἀπ A‏ رت μον τν ο eal TY had Lari —— » ος T m M > 5 E E A E y x ends "uta "PT ο Wp‏ زا ie d ρον‏ د E‏ در ا 
melt amen 4 A cds πα er pn aia dips τ ο‏ گرم MES. al. X. V NEW LES‏ جس جر = agi d E pU dr ru " 3 ae E > - 5 E‏ ا a ue” piger dr c‏ ا دا یر رت dish Sid‏ را ا u αυ‏ ا ا ο οφ‏ را را جا 
J awki Ah haha ἀν ο ων αφ ο. ώὰθφ‏ ہ fir Poms‏ مس مد *Q*pha *e fats SOS‏ ا و يار سو ° Leodii "T p K "Tm B h P TS κ b=: >r P s T. d » d‏ یا rap rhetor qaippe dt poderi n md‏ 
eR BE pd E abren d pA is hiq b X‏ یما ہجو جرد نیہ رین ری رر رج ور و سم ۷ - 3 ae ° s. “w. " ma PTT a ἐπ : zu i Hebe r‏ لیے T aa‏ ا اس دج o ( E LI Ρώσων Ae ru da Ae "o rit N Ty‏ کے کے و aam f‏ 
a, oy a il‏ کے سے ا ا ا اق ا ںا ا «π aS 4 posed‏ پد او ο Αα... © ον‏ وہ MP Pr EY clan seta " P" ο ντ mo E me s i «gt S e wi qe E Jin‏ ایخ aig d μας c E up Pro‏ مور ران ای puqoq api ad‏ 
ened LT NEU Pares j ipii cir Mid os κ ον ο Opa ας ada‏ ا A E ως πώ ντ a s^ 5 PX η p m «Ww nt 9 dM es‏ کک ا کے شض ہی مت μα ie ne nti‏ سیر tot ο αλ‏ کی ہو ی ی ا ا 
yp o ibd "E 5 ΡΝ ΝΕΤ; DADA ΚΑ š =" wen n Μο SLO E NE cael dn “papa: νι ποια d νο a‏ ریس ο dri etre oor te RIMES φωνών odii yd ους a te lhe‏ 
ae 4 W a Lo r4, " p Se eu ۱ i ὑπ tie ως r y it: πο νο αλλά δν μα ο».‏ کا کے E eoa d e a 2 7 RDI‏ ا کشر ار μονο αρα ΜΗΝ ο μα ie‏ 
ον ۶ ne ° E ^ T Lit . ν (Ap ] ie enti den. M cedere ria dep d M νο ids id inia Ape d rra‏ عیحہ Me ος‏ ا یج یی ار راہ φανών ο visio dont ir TY Ea lat hapten thet ο νοκ ley i alta ay)‏ 
r OP L S a a a ak m andi ots varo an p aaah.‏ و هد دو سی μον ας [i-e vl‏ دید یں | ο, TIN‏ پگ پر : ET TT J sisi E A Ρώσοι ppt ἀνν Ane skype τ Ὁ y . 05» 2 v λε = A‏ دا ا ا پا ۰ ا کی ی xs μμ tie πο‏ 
qami‏ ےی αμα E‏ چان aka hod‏ فو Bec Ace‏ جس گل prete stt lido pot οφ ΙΤ E r Pd qp pU DE Li o νν w q © mov = " ^ p ^ x E dL LC E D ea ar o Ma a ^ Nu h‏ ا ακομα‏ 
ail mapo t Arnat a a pa T:‏ رر Ernie ORELLI Eia iei eh r pd ES ΤΥ‏ ن2 μον, Lui νο ο TT o ad ων λα nm πμ αν A mof En IE s PTS à 7 š 7 T mw. κ . ¬ L‏ ا 
ἂφ wx as ἡ ἂρ πα δη κάνα adeps‏ مرو she‏ یں ἡ ea‏ ”اداد "s ` ΑΠΣ a iha pno haapa‏ بس ^ "s ΄ τά.‏ —- كت pri gee DT TT O ώς ο ο γρ δὴ «αφ η Aude ο ρώσος χα ο ο.‏ کو po vidi‏ 
جا Far Sl ο αμ ου μμ ο ο‏ داد رد سرب نہد ον‏ ۔ SLIDE v ¢ i pe h‏ أ » y a a N E L‏ میں DD "IP On a fy ΤΙ νύν ^, $ COME‏ ا ا ا اس ibi‏ ا ا را 1 poii ο ο μμ id p‏ 
Papeete‏ ا ےق ο‏ ای e Ra acd FON‏ ایا پا ہہ و 8 T ee ee oll‏ - مرو کپ پش dod pepe MPTP PET Te aaa a pont o? ooy? mA v. í‏ ا ων Prisa pda cup dpa a‏ ار ای نرہ ων ών el‏ 
ہے ہج کے ا Sir ET‏ ا ا اس رات aiibi: μον‏ بجی مہ pe .Ῥ-‏ مو "E Lm Sa‏ حمید رر تی یر۔۔ bud drm, prid MD rrr ary. Tar 1 "TEMPI P PE p Tn a ^ ^ : ο ο s N‏ کے μόνος οι κ λα ον μμ‏ 
μμ ο ορ ο ο ο ο ο του » Κιερερν »τ ον”... ο να. K πα p 7 à M a 5 Pe ML shi A OOOO PTY e E gS Ξ sunaren nataas rnn IP S 9 AL na‏ — نخس سو ا اھ یل ہب 
یق ا he tad AR TII κανα‏ نفد ο ia‏ ا کو 22 ا ا νο ος a‏ یہ د۵ہ اوہ ee a.s nn " r) AE TET εξ pA wh aw τς ὑπ‏ سب np a E ° a pa rg T ee O δή λα... LL‏ ا ا ار شر ڑا 
کا ا a ΝΕ‏ ا اط d Fr aaa να kuer P: quta epee ota Se‏ ا وو بر می خی ہریرہ کت a i abcd OO an N pee Oe it nd ue cee ee "E 2 ^u " x m EN ori 5 i oil κ A‏ ا کا ا ا ار oet soupe‏ ا ا ا ری ہے paid nent‏ 
TIL rupes 0 "^ ont c - Kia kie s» * PTT. Pet ert ee Pe AE e SR ae ή οικου ο ιωώμμμο νο aa st‏ " دی چوس a at μην ον del ον ιο Sud dii. tor κά T pit Ap ro TE e ait: Pu ee) fe KE a‏ 
a a d‏ ا ا eee » Mba dete. ted‏ ا I LN D ντ or S KH‏ رگ * eo r s... k F 1 `. 5 a " B‏ میں م . rapi digni ο ζωών PEE Md i τα. "TAXI a PN gavin “2 ECDs‏ ^ 
αν λα νο‏ پسمیممعی بے بر ید ο Μα‏ گا ہی Am ¢ pe i ΠΤ ΤΣ her ee P "ev‏ نہ ہے a ^ μὴ e E e e nili‏ 30 یہ . " P , EN‏ ری OT EY lind a‏ پش ا سن بر pend‏ نک ا ا ا Wee aiii «$9. μμ, μμ sd μα eT‏ 
کر رٹ ٹب n ein asbl pedi‏ خیش ja‏ کے -- ایی ہی :8 z a .... Phe (πμ ης Mou‏ ہیں ند din ted dre afe sje tipi ΡΣ ΝΟ όν et ον pet pei ae pee ey TS DDG PPT ee E... d uin iss ss PF» s a = κο‏ 
ο, i‏ جا یس ےی Reb tee ρα ακομα Μο ον‏ حم a... Anc sar uen δν Mr dvor‏ ہہ L EIS‏ و " F P‏ سے oe ee‏ 1 . ہے PPT Email rns n buie up D dud "PL id ὙΠ ΠΝ 2 P TT‏ اہ feles‏ 
“peat leat el apa Saree 1 see NT a Ne μὰ eR DN d Wedge μὴ‏ سر ١م Poe didi «πριν T PR La o FT EX ipae s πως, ED‏ ا TN epee pore‏ و ا ا سای ری موا سردم an igi το‏ 
d dedii drip ROR ee‏ مہ مہہ مو S Sm UM LA K TET LEID h iya tO NN hs omy edd -. ο‏ وھ νον Ὃν, το ml "m " Mele. MONI 7 j^ " ρὲ PS $^ A D‏ ی 0 و ا ا ا رس رادم رای رام <2 paa oe"‏ 
P 5 Mem a ih. d à dis κα οπών K a a A dr ώς s... »5‏ .. ی کک e‏ ع των m: "n "TT M. fhe = ` 5 * á k bb‏ 7 لے رمق ہے doi‏ 07 ا wapi ναι ως Ἡ δν μαι 31 ed t,‏ 
ἣν Ἂν ου. ος ο”... RD‏ دب ا A A. LE P TS NUIT ασ AEn κ να visitat‏ ہت : ES pss d i ire ivi nim eph: μην a P ibd eM - M P E HY 5 T s‏ سے iret‏ 
pü aa <o‏ میا ا یس p S eH pn LL a οκ μμ ας ο ο ο‏ .. » اف e d 7 7 — ۰ = m 9 e‏ ل ΚΟ ef‏ ا ےا ο πο ο‏ سے یک ιν οφ ο P T‏ وو ا rarr r T‏ 
pairs ντ dd Εν 5. i kaa a PO μμ μπαρ ον‏ 4 را e‏ رف L w. ^ . e .. ο‏ ہیں > 7 οὐ κ) Fi apa oi bcd d μωρο seater tere ” ΝΠ ed‏ مام د د ی نے و pese Τσ perde neu‏ 
koaia a si a Ca au Ὁ Re NÉ L‏ مم a -— À — ot pu m E » , 5 4 &* a κ τὰ ... TS P ER aped re a‏ یا ایا اا ا این one eho ui do Da‏ مر یا کے ا μνώ TT isi ο μα νο liae‏ 
ober diia μ΄ ολλ Samba.‏ ي κά <۹ xos š AS EM E‏ سس r . 7 nino. ` ... TEPE ο ο‏ و 3 uu. ad PASP id Ρο ΟΙ ΡΕ ΤΊΣ Fo 4 wR. 1 P p‏ --. یی اا pot‏ ا را 
x maceriam m aa‏ حخ دی وہ یہ ہ۹ ۔ ` - "P " ο + 5 ^ . “w - L. ] RU T % s. ° E 8 > pto: As καπό 7 ۰ » gp.‏ -. ام πο ο E pr‏ کے دےو ο τα... TP P‏ را puede edt nre ον ds ΥΠ‏ 
hs b ih a ET tedio ikoumappran dri‏ جم d Es rap abu rani‏ یھ ا می ο ».- » cf oe. 99 vt» NITET Tid "IE - ae ۳ 2 i‏ ےو سپ کے ou vri ΗΕ D aeo‏ ا نوا مر روا pipe‏ 
pudo qM PE E‏ ا جج جات ανν "Ντ. ο‏ .... بد n "m P. m Pu T 7 E - a P 7 D £ XA ^a taba Na" Er S ο κος ον acl A δν‏ ج eA Sie tn‏ تںھدوے -۶جاجح bt OT eekly BO oft viden ων «Δυο ο‏ 
Mq ον 1‏ بے لک جویھہے۔ وھچ وہ اگ اور پت بیج یں = h Š j ۰ i d 5 Nd NE i: Lio μι. M Fateh ware - mere an Δ.’ καὶ‏ " جر « paid ra νου, ced Le ο οὐ ιό 26 ο ο κου μα... T T LIP e ul Nor τ 3 PP‏ 
u rO E m m‏ چاماارچرمرھے۔ دم ὁ εί ` λε‏ ا LO Ἢ "m NM 4 a‏ ہہ نہب ` := M‏ + ر φον ο”... κ Στ... Ku ου” » nU m P» n‏ خو aysa‏ ا κ.‏ یت جي te)‏ ا Mesue‏ 
پچ μι ων ο ο άν‏ سام یی b 1 b s uUa a FECE PRO τν αφ eae s h‏ تد 280 ο ο ο. pose LD asas aa 7 ec P a mre Pur Feb aap E rete pd po Ps ee 79900 mulla‏ 
το ap S 42 Renae taped AOR ERECT, Ton a cedri drip‏ ہت PTT dtp eat rd dais rT Pis dandi diia 2 s e v " P 7 = v .-.. 5. Ψ'νο *wwo "^" s‏ را سر sp‏ 401 
یر ےا TT TD aD‏ ا دا ان رج اف ات درد n sa forr P στ... ce. , E ` a " ba ٤ š `~ < =) ` EN " e E ορ‏ ےو plage ae ee rdum m pp mb Ed‏ 
Emilio‏ بھی لے رر وک 2 TM Per ery ie ra s ο P phe‏ مە ὃν š T e Ces‏ ووي t om μμ T. Eid E , η‏ کے pe ee Od Les i μον Mirip pa w a S ne‏ 
ER ls r A S‏ × یا ےہ جسیم٭ -٭جھ pare . ΗΟ ou‏ 2 ٭ b. Tel "ENT ΡΤ ΥΠΕΡ | "mE E oid P . “ TP 1 , 7 op > E A y E μον m * 4 AS‏ و ra ss μον doni Pry. ee ο...‏ 
p γον μέ x hdd 2 lbid I T aa hahaha να‏ ری ® pet ca 4 να N" DA "e ΝΡ a 2 s k : vitio » s u‏ ^ سے ے P we od Μο ο rd ου ο ο” (foem m ^ i "T Aree me:‏ 
1ےک ہ ہے ہہمڈدھو محمہ مموا٣1چید‏ چیہ مروادج ات αερα ενα ολ δω κά‏ ات دج میں M‏ ار «δ S EE E odd ΝΟΣ T ing “te x < ۴ » " ^ A ۰ s‏ او لک مس ارم دی ات pev ° nə ο ων «Ῥω» pp e‏ 
ρου Es i‏ ا جا ds w- ¢ μον ο‏ وت Al a v ` - ۴ Oase edat i does ANE‏ “ 2 و Αθ Ltd ponetur ο ο ο φτηνών» ο. _- siat i». P PETTI P e > US‏ 
s ns‏ سس e md‏ ا ا ا ری 7 ا rT pem م٥ x "h^ K. e ai , e uo wt n EIS : Se NNN‏ سر ον "ET‏ بے را μυ. νο αμ P ire tham‏ اا piri" gura‏ 
Wk kawa ere >!‏ میک نہ MP‏ ا سو pied‏ 2 بجی "e "diis‏ ^ ہ۔َ 3 = nt ο νο. ΄ «- 5 Τα TIS ὦ ve 9 a oe‏ ای کا ےق ںان یج مب ریا و کو ١اض‏ مہہ اھسےہرک ہے trao s Ap‏ 
ου E 2” φος "NIIT PIPIS ΤΟ. s . m ^ , p l = ` at “ Pu pe © ok-we Ryder: ER m poe a eq d NN Fide ——— eo LY aea rn‏ ا ιών ον να hr epum ON o Td prod L‏ 
cit μον μου ο ο”. νο `...‏ ا πα ο iia «ορ... ppt qudd debe Ed ο $e ud omo? μυ ο λα. " fer. KE a a "s P w M LT LO T x pied p ΓΡ ados‏ 
سے خی ا اھ E‏ ا ا φον T P" "aro .. wus en B - E ^ v * 2 " > M uU E RET = 7 MN αλλ... T‏ ا s μωρο νο μμ a‏ .کا 
μι μαμα a ΓΙ,‏ سم می نج 9 C ER TES ποσο $ an : - "at‏ مت WO nd a dec md ot tee simt a πώ T all «Αδαρ ἐ m aw t ΠΤ ΠΡ A 2 P Ξ ο”...‏ 
obser inate tah 7 μμ ak eae TTT Po dS P m dito dé] D 2 m .. ΄ E ΄ an € 7 E = E " A. . H 4 ΠΟ ΜῊΝ er m we a νο ολ adie φως αν ο ο ου.‏ در 
αν ο Rl PERMIT‏ اہ ΕΙ ila ορ. EE epi Lo‏ ا m ΣΎ PE Ë A‏ ہل ` ` SO OD PT OO LN Lordi " ΠΤ 1 a. a . s T PEU" s τα‏ ۴ا ر جوم Ἐς φον Rn Dente‏ 
ο NUN ee U. TEK... qp s wy‏ رر 7 u AN‏ ات ns a “ " er Pie T ν . B pP- ρ΄ ٠ ῳ » ۴ 6 AES‏ رھ و Tienes ΓΤ ΤΟΣ ΓΤ ΠΠ mr‏ ا ا ام ups‏ فة۰٭ و" کو سے بوود ےرہ ےے۔ air iro‏ 
πα μα ο...‏ ا ی یہ موہ کے ΠΠ‏ . ٹوس یا : 5 .` whale TE ios in ΡΥ 5 9 dd A : A se 2 "A "P "um ۴ ` uL‏ ا اک ا ia apes‏ ا ا کس مد و وہ را wre ope‏ 
lie‏ اق ا ا دا "E Ç ls d m PE Y xx D Kosan e $ sta xz‏ ٭ صمھۓ " " η TL ad "HE TY I LA h .. , n‏ بے ا eT be ear eet OT‏ 
μια μον ο ο αυ.‏ یی UBL S ia‏ ا 2 œ ως ο EN puer iis E - 4 a A 2 € ^ " & e d ` ws PA σι‏ 
ste HII b lm φον diia E EE * s‏ ناپ ہام £ $e4 s» " , P at M > τ ^ κ 2 E x - ٠ E ` P^ P " Ps P: E a ۹ d‏ " 
AMAA UL‏ کڈ a‏ رہز ae ο. ΛΣ‏ یں جہن 1 > δι ΤΙ bd‏ ^ ا T a < M‏ 
š d L LA rU pao ον 0 ger ty pa eet eens νου νο ον μον μες ο κ‏ "^ 
πο πε‏ پر او ا E di‏ بجی خی راک Ls ο Καρ . Paypak . Ross‏ , 
"LN Eb did pt" armea‏ پور رز PO LL‏ .۔ - ہے SWR‏ 
a. id d DUE e μον 9‏ 
n" - cipe‏ ہے جا ο. ων Rel 1 1 1.22 πλ P‏ . " . 
LI , om £693 £v‏ 


ὃν m وھ‎ 
D q ا‎ 


LU 0 eet "ow? YO کم‎ ' = RT 
D Rn tne TE KO e PCRS I I 
euh Pay "m PX 









s S a a ra r. 
S e ECCE w ὶ , 3 ' 
^ IT E UA 2 I^ TRECE DEOR D. LR LE iu E ae quA اھ‎ i " , . 
b "y " , ah Ow gs i rn 
4 4 r unk A E" TT ° 
ہہ سا‎ ματ ο راس‎ ολ 





3 




















NAVAL POSTGRADUATE SCHOOL 


Monterey, California 





د٢س‏ کے وہ لاک 


CO OP2.0 DISTRIBÜTED DECISION SUPPORT SYSTEM FOR 
STRATEGIC PLANNING 


by 
Skindilias Christos 


March 1986 





Thesis Advisor: lung X. Bul 


Approved for public release; distribution is unlimited 





URITY CLASSIFICATION OF THIS PAGE 
REPORT DOCUMENTATION PAGE 


REPORT SECURITY CLASSIFICATION 1b. RESTRICTIVE MARKINGS 






3 DISTRIBUTION / AVAILABILITY OF REPORT 
Approved for public release; 
suctribubion is Unlimited. 






| SECURITY CLASSIFICATION AUTHORITY 


DECLASSIFICATION / DOWNGRADING SCHEDULE 


IPERFORMING ORGANIZATION REPORT NUMBER(S) S. MONITORING ORGANIZATION REPORT NUMBER(S) 


i NAME OF PERFORMING ORGANIZATION 6b. OFFICE SYMBOL  [ 7a. NAME OF MONITORING ORGANIZATION 
| (If applicable) 
aval Postgraduate School | Code 54 Naval Postgraduate School 





ADORESS (City, State, and ZIP Code) 7b. ADDRESS (City, State, and ZIP Code) 


Enterey, California 93943-5000 MOn emey eoa tornia 93943-5000 





. NAME OF FUNDING / SPONSORING 8b. OFFICE SYMBOL 9. PROCUREMENT INSTRUMENT IDENTIFICATION NUMBER 
ORGANIZATION (If applicable) 





| i 
x 
| ADORESS (City, State, and ZIP Code) 10. SOURCE OF FUNDING NUMBERS 


PROGRAM PROJECT | WORK UNIT 
ELEMENT NO. |NO. | | ACCESSION NO. 





TITLE (Include Security Classification 
RO oP 2.0 DISTRIBUTED DECISION SUPPORT SYSTEM FOR STRATEGIC PLANNING 


PERSONAL AUTHOR(S) 
@™eindilias, Christos K. 


a TYPE OF REPORT 13b. TIME COVEREO 14 DATE OF REPORT (Year, Month, Day) |15 PAGE COUNT | 
Master's thesis FROM TO 1986 March 23 1 


. SUPPLEMENTARY NOTATION 


COSATI CODES 18. SUBJECT TERMS (Continue on reverse if necessary and identify by block number) 
FIELD DECISION SUPPORT SYSTEM, DISTRIBUTED DECISION MAKINC, 
= 1 MULTIPLE CRITERIA DECISION METHODS 
NR. . | 





ABSTRACT (Continue on reverse if necessary and identify by block number) 


This thesis focuses on the implementation and use of a multiple criteria, 
ultiple-user Decision Support System capable of supporting distributed stra 
egic decision making. An example of the use of such a distributed decision 
upport system for selecting warships for the Hellenic Navy demonstrates the 
sefulness of the proposed group DSS. 


. DISTRIBUTION / AVAILABILITY OF ABSTRACT 21. ABSTRACT SECURITY CLASSIFICATION 
KXUNCLASSIFIEO/UNLIMITEO O SAME AS RPT. (CJoTIC USERS Unclassified 

a. NAME OF RESPONSIBLE INDIVIDUAL 22b. TELEPHONE (Include Area Code) | 22c. OFFICE SYMBOL 
ung X.-Bui (408) 646- 2630 Code 54Bd 


) FORM 1473, 84 MAR 83 APR edition may be used until exhausted. SECURITY CLASSIFICATION OF THIS PAGE 
All-other editions are obsolete. 7 


1 


approved for public release; distribution is unlimited. 


Ce oF 2.0 
Distributed Decision Support System for 
Strategic Planning 


by 


Christos K. Skindilias 
Lieutenant, Hellenic Navy 
B.S., Naval Academy cof Greece, 19375 


Submitted in partial fulfillment of the 
requirements fiom the degree af 


MASTER OF SCIENCE IN INFORMATION SYSTEMS 
from the 


NAVAL POSTGRADUATE SCHOOL 
March 1986 


ABSTRACT 


This thesis focuses orn the implementation and use of a 
multiple criteria, multiple-user Decision Suppert System 
capable of supporting distributed strategic decision making. 
An example of the use of such a distributed decision support 
system far selecting warships for the Hellenic Navy 


demonstrates the usefulness of the proposed group DSS. 


GJ 


II. 


TABLE OF CONTENTS 


INTRODUCTTON ."—- .—— ΙΙΙ 5:07 - 
DEFINITION OF THE PROBLEM . . . «© «© «© «© « « 
SCOPE OF THE RESEARCH . . . «© «© «© «© < : œ 
ORGANIZATION OF THE THESIS . . . + « « < a œ 


A FRAMEWORK FOR IMPLEMENTING REMOTE MULTIFPERSON 
GROUP DECISION SUPPORT SYSTEMS . . . . ee a «© < : 


DEFINITIONS AND BASIC CONCEPTS .... . . . 


A. 
B. 
C. 


a. 


p 


Γι 


جم 
P‏ 
و نے 


Definitions cof Group DSS feu. < l ٤۶۰ 
Qssumptiors . . « a « < a a s» a a æ - ہ‎ 


Caommurnicatiurns 1 >5 im Distributed 
Décision MAKIN « « « » «© «© ο = wv. 


a. Need for Format Transparent 
Information Exchange . . . . . . . . 


D- Limited Versus Free Infarmatiar 
Exchange E 1.7: XT. 07٦ 


C. Evolving Pattern aof  Commurnicatian 
Requirements . . s s . . و ےھ‎ < . æ 


The Role cf the Communications Component 
a. The Coordinator Role a a a a a < < . 
b. The Detective Role: . aa aa . . . . . 


c. The Inventor Role: a a a ο» . . . . . 


AN ARCHITECTURE FOR کا‎ ۲٢١١٠۴" ۳99 C. M 
MODEL COMPONENT E ου, 


THE 
1. 


e‏ سا 


THE 


p 
. 


[ú 


MODEL BASE sc. + + + 0 cx 75٦ 


The Model Hase for Individual Decisian 
Makirig «6 کی‎ ٣و‎ +41 ce 


a. The ELECTRE Method: Basic Concepts 


b. The Analytic Hierarchy Process: 
Basic Concepts a = a a 2 a a æ . a o 


The Model Base for Group Decision Making 
MODEL MANAGER er «οι. .NELLI .سب‎ 
Irit egrat icri MR d Models * a a * 2 a a a . 


Combined Use af MCDM ard Techniques of 
Aggregation af Preferences ID ΠΗ. 


4 


هو مہم -- 
لا لا Oo‏ 


=. 
ci 


17 


1 


17 


 τ نا نتم‎ e 
ω — oO Q u 


[u 
ω 


گر 
ω‏ 


ru 
> 


[: Γι [po Γι 
i o qm (n 


m 


C. THE LINKAGE MODULE . . . . 
IV. THE INTERFACE COMPONENT . . . 
A. SCREEN DESIGN . . . . . . 
B. DIALOGUE STYLE . . . . . . 
C. THE HELP COMMANDS . . . . 
m. THE DATA COMPONENT . . . . . . 
A. THE DATA STRUCTURE . . . . 
B. ΤΗΕ DATA MANAGER . . . . . 
VI. THE COMMUNICATIONS COMPONENT . 
A. THE GROUF NORM CONSTRUCTOR 
B. THE GROUP NORM FILTER . . 
C. THE FORMATTER . . . . . . 
VII. IMPLEMENTATION OF THE GDSS . 
A. SOFTWARE STRUCTURE... . 


Ες EFFORT DISTRIBUTION AND MAINTENANCE FPROBLEMS 


1 Effort Distribution 


ος Implementation 
1٣١٤١ ٢ہک ۔"‎ a Ga ἄπ 7 


VIII. DEMOTE MULTIPERSON DECISION MAKING IN MILITARY, 


STRATEGIC PLANNING ..... . 


A. EXAMPLES OF 
MILITARY CONTEXT . . . . . 


B AN HYFOTHETICAL EXAQMPLE . 
IX. EBNELUSPBENS . L mo so è a < x o o 
APPENDIX A: THE FROGRAM LISTING. . 
APPENDIX B: FIGURES FOR SCENARIO 1. 
APPENDIX Cz: FIGURES FOR SCENARIO ¿z 
CST OF REFERENCES . 1 s a «© “< = m." » 
INITIAL DISTRIBUTION LIST . . . e à 


cn 


POSSIBCE USE OCF 


GDSS 


IN 


Froblems and Maintenance 


51 


— πο 


Gi 


T + + Ü ω (J Ww نا لا‎ 
ω ω (J N N N O + 


{η 
a Ες 


(n c 
0 


CIST OF TABLES 


LOGICAL DATA BASE RECORDS FOR STORE THE DATA 


O- n PROBLEM . . « «© «© < < < œ œ 


LOGICAL DATA BASE RECORDS FOR STORE 


OF A PROBLEM s= ھ ع مھ‎ o a 2] ہع‎ 


THE DATA 


LOGICAL DATA BASE RECORDS FOR STORE THE 


DATA GF A PROBLEM -. ο, 


LOGICAL DATA BASE RECORDS FOR STORE 


DATA OF A PROBLEM . . a a a a = 
EFFORT DISTRIBUTION SS ey. 
SGPECIFICATIONS OF THE WAR SHIPS 
SFECIFICATIONS OF THE WAR SHIFS 


N E p 
υ O fa 


(H 
(J 


10. 


11. 


16. 
17 
18. 


T2. 


lL heir F-IGURES 


PSCC wis ےک ےہ‎ ΙΝ. o e m e 
The Ca_oP Decision Making Precess . . . . 


Hub Help Menu a n a gd. +7  +  ,-+ء,ۃ1‎ 1 -... 


4.1 To 4.4 . . . 


Step 2 Group Norm Definition . . . . . . . 
Step i Group Freblem Definition . . . ہے‎ 
User 1 / Prablem Initiation IMMO. — a a 
User i / Prioritization of Evaluation 
Criteria at the First Level . . . 
User 1 / Fricritizatiaon of Evaluatioen 
Criteria at Level © Fer Criteria 
Ip Τον", τ». ',---,. . αυ 
User 1 / Fricritization of Evaluatian 
Criteria at Level 3 far Criteria 
and 1.3.2 s = a a a “° a ° = = ə a 
User ë Frionitizatien af Evaluatian 
Criteria for Level 1 "οὐ. a 
User ت‎ Priaritization of Evaluatican 
Criteria at Level 2 far Criteria 
5, Ἱ and 2. ë a D . 8 a 5 a m ΕΒ a ° 
User 2 FPriaritizaticon of Evaluatian 
Criteria at Level 3 Του Criteria 
كت‎ te'i to c. 1.3 a a a a a a 88 a 5m 
User 3 Pricritization af Evaluatian 
Criteria at Level i... . a a = 
User 3 Priaritization af Evaluation 
Criteria at Level 2 far Criteria 
2.1 and 2.5 a s εὐ a = ο ° a πὸ a ° 
User 3 Frizszmritizatiaon of Evaluation 
Criteria at Level 2 far Criteria 


Final Weights af Evaluation Criteria . . . 


The Reduced Set of Criteria 


User 2 / Evaluation af the Alternatives 
According te Criteria Semar (AHP) 
User 1 / Evaluation af Alternatives 


According ta Criterien Air-Crafts 


(AHP) 


. 36 
ZERO 
< 189 
eee) 
ο οἱ 
ت19‎ 
<3 
. 1924 
. 1325 
196 
1 7 
1328 
129 
LOO 
EOL 
SOS 
HOS 


ru 
C 
8 


[u 
= 


[ú 
Š 


fu [o نا‎ 
{f + 


ra 
NM 


fii 


User 1 / 


User 2 / 


User i / 


Evaluation af Alternatives 


According ta Criteria Guns (AHF) 


Evaluation of alternatives 


According ta Criterion Semar (DIRECT) 


Evaluation of alternatives 
According to Criterion 
Maintenance (DIRECT) rN ha T 


Final Group Solution of the Froblem . . 


Group Norm Definiticn . . . . UU... 


Group Froblem Definition . . aa a a . . . 


User 1 / 
User i / 


User 1 / 


User 1 / 
User 1 / 


Solution 


User 1 / 


User 1 / 


rc 
` 


User 


Solut icr 


User ë / 


ru 
SS 


User 


User 3 / 


S2 l Ut 1 cir 


User 3 / 


User 3 / 


Problem Initiation 0 0 anes ee 


Preiaritization af Evaluation 
Criteria AHF. a a a ےی و‎ a » >a 5. 


Final Weights of Evaluation 
Criteria B 


The Reduced Set of Criteria 


Individual Evaluaticn of 
Alternatives Using Direct mode 


of User 1 ) With Direct Made ) 


Evaluation af Alternatives 
Using Electre 290 2E EE 


Concordance, Discardance, 
Outranking Matrix Dx 


Individual Evaluation cf 
Alternatives Using Direct Made 


of User 2 ( With Direct Made ) 


Evaluation of Alternatives 
Using Electre gio ce «απο. 


Concordance, Discerdance, 
DOutranking Matrix 4 WE . HODIE 


Individual Evaluation of 
Alternatives Using Direct Mode 


mf User 3 ( With Direct Made ) 


Evaluation af Alternatives 
Using Electre 07ہ ہد اھ کت‎ 


Concordance, Discoerdarnce, 
Qutranking Matrix ےھ‎ 


Group Solution ef the Frobler 
(Salved with Direct Made) "i 


Group Solution af the Problem 
(Salved with Electre Made) a re a 


8 


fu pú pnm 
© Q 2 
i o N 


[ú 
کل‎ 
C 


Dai 
]:1 
fii 


Γι 
fii 
GJ 


na 
٢ن‎ 
ID 


Γή 
Γι 
Ch 


ru 
Γι 
0 


[u 
ru 
“J 


ACKNOWLEDGEMENTS 


At the completition of this research the author wishes 
to express his gratitude as well as his personal sincere 
appreciation to professors T. X. Bui and T.R. Sivasankan far 
their assistance. 

Finally, the author dedicates this thesis to his wife 
Elpida, whe has always encouraged and helped him during his 


efforts for education and corntirucus self-imprcoevemernt. 


I. INTRODUCTION 


A. DEFINITION OF THE PROBLEM 

It is often observed that most of strategic problems are 
analyzed, discussed, and solved by many decision makers. The 
existence of multiple users have created a rumber af 
problems. First, it is difficult to physically reunite all 
decision makers in a gecgr^aphic location. It is even more 
prablematic in finding an appropriate time for all the group 
members. Second, the success of a group decision making 
preeess relies eon the skillfulness ar the group leader. 
Unfortunately, the quality af the group leader varies fram 
ane negotiator ta the ather, and fram one situation ta the 
other. In a military decision-making context, this proablerm 
becomes ever mare complicated if one comsiders the 
increasing complexity af the technological aspect of warfare 
and uncertainty regarding political issues. 

This research proposes a computer-based group decision 
support system that attempts to resolve, ar at least reduce, 
the proeblems enumerated .بات‎ It designs and implements a 
micrecamputer-based DSS that allows group members to 
remctely and sequentially participate to collective decision 
problems. Im particular, the proposed DSS is an expansion af 
a DSS based στι multiobjective . decision methods, is 
implemented in a local area network using a bus architecture 
and the Carrier Sense Multiple Access with Collision 
Detection  (CMSA/CD) protocol. The CMSA/CD  protacel is 
known By its relatively good performance, simplicity cf 
implementation, and inherent system reliability. Such a 
protocol allows control of collective information exchange 
and data routing among group decision members. 

The use cof such a group DSS distributed in time and in 


space, is expected to eliminate the physical preserice af 
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group members and the need of scheduling meetings. More 
important, the proposed distributed DSS provides a objective 
and flexible framework to integrate organizational norms and 


constraint into the decisicn situation. 


B. SCOPE OF THE RESEARCH 

This research does not attempt to discuss the already 
large and interdisciplinary literature om group decision 
making. It attempts ta expand same of the work in group 
decision support systems cutlined by CRef. 1 ta 3] Two majar 
expansicns include the possibility for the user (i) to 
directly assess his preferences in cardinal terms, and (11) 
to allow ۹811 161 af evaluation tasks  accerdirg te 
imdividual expertise. In particular, this research primarily 
focuses on the saftware design and implementation af the 
networked micre-computer-based group DSS operating under a 
cooperative environment. However, the modular approach 
adopted for the proposed DSS would make it possible ta 
expand the system to more complex form af group decision 
Situations found, for example, in military strategic 


planning. 


E: ORGANIZATION OF THE THESIS 

Section II outlines basic definitions, concepts ard 
architectures related te grnrcup decisicrn making under 
computer-based settirgs. It emphasizes the communications 
aspects among group members via computerized media. Chapters 
III, IV, ν and VI successively discusses the characteristics 
of the components of the group DSS. Twa multiple criteria 
decision methods are presented in III.A. Four techniques af 
aggregation of preferences are defined in III.B. The multi- 
window interface has been adapted for the GDSS interface 
(Section IV.A). Data definitions and dictionaries are 


described in section V. Section "VI addresses special 


11 


applications af the commuriications modules. Some 
observations oan the develapmert process of the GDSS are 
reviewed in section VII. Twa examples af remote multipersan 
decision-making in military strategic planning are analyzed 
in section VIII. They illustrate the use of the GDSS te the 


selection problem of ravy ships. 


m 
ra 


II. A_ FRAMEWORK FOR IMPLEMENTING REMOTE FmULTIPERSON GROUP 
DECISION SUPPORT SYSTEMS 





A. DEFINITIONS AND BASIC CONCEPTS 
m Definitions of group DSS 

A collective  decisicn-making process can be viewed 
as a decision situation in which (i) there are two or mere 
persons, each af them characterized by his cor her awn 
perceptions, attitudes, motivations, and personalities, (11) 
whe recagnize the existence af a  cemmorn problem, arid (111) 
attempt ta reach a collective decisicn E 1. 
Furthermore, the group can interact  simultareocusly (1.6... 
peoled-interdeperndent mode?) ar make individual decisions 
separately ard then confront and discuss the results 
(1.82., sequential-interdepernderit). 

One can observe three broad types cf graup decisien 
making: a single decision maker acting in a collective 
decision enviranment, nanm-caaperative decision making, ard 
cooperative decision making. 

In the group decision-making situation with one 
person, a particular decision maker ultimately makes the 
decisicm and assumes responsibility for his line af action. 
However, the decision can be regarded as a collective ane 
because of the existence af a dense network ef influences 
that surrounds this single decision maker. lIn fact, Other 
participants in the decision maker’s organization can either 
support ar act against the decision. Thus, the behavior and 
attitudes of other people who are indirectly involved in the 
decision-making process should be analyzed. 

Iri the non-cooperative decisicm situation, the 


decision makers play the role of antagonists or disputarts. 


Conflict and competition are common forms of non-cooperative 
decision-making. While the former represents a situation in 
which  disoputants seek to hurt their appenents ta pursue 
their own interests, the latter is characterized by the 
facts that each competitar is arn action candidate, and is 
trying ta outperform others. 

In a cocperative environment, the decisicn makers 
attempt ta reach a commen decision in a friendly and 
trusting manner, and share the responsibility. Consensus, 
negotiation, voting schemes, and even the recourse ta a 
third party ta dissolve differences are examples af this 
type of group decision making. 

Also, the literature in decision-making describes 
twa types af decision situations involving more than ane 
user: pamwled interdependent and sequential interdependent. 
In a pooled decision-making situation, decision makers 
reunite together to form a more ar less  haomogeriecus group, 
and attempt tz resolve a callective problem sirmultaneocuslv. 
Elsewhere, in a sequential interdependent situation. members 
af the  pgroup can attack the collective problem at different 
periods in time, looking at different decision arıg les. 

Arnather classification af group problem salving 
approach found irn the literature is the distinction between 
caontent-oriented and pracess-oariented approaches. The first 
approach facuses on the content of the prablem, attempting 
ta find an optimal or satisfactory solution given certain 
Social or group camstraints, or objectives. Hy contrast. the 
second approach is based on the  caobservatiaon that the graup 
goes through certain phases in the group decision-making 
process, and an the belief that there could be an arranged 
way to effectively deal with these phases. 

Wher a collective 1٥٥:1 fails, it becomes 
necessary far the participants in the group problem solving 


t= start bargaining or negotiating until a consensus is 
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found. While bargaining involves discussian within a 
specific criterion or issues, negotiation includes many 
criteria or issues in the discussion and search far 


consensus. 
2 Assumpticns 

Without lass of generality, the cooperative multiple 
criteria group decision support system implemented in this 
thesis, is a DSS that (i) contains MCDM ard supparting 
models in the individual Model component, and (ii) is able 
to support multiple decision makers via a Group DSS toa reach 
a consensus in a cooperative environment. 

Under certain decision circumstances, MCDM can play 
a crucial role in suppertirng grenp decision-making: 


"m Due ta interpersonal differences, the existence af 
multiple and conflicting objectives is substantially 
more daminant in group decision-making than in 
Single person decision-making; 


Cm Subjective and qualitative assessments seem to play 
a mare crucial role in grcup than in single user 
decisicn-making. It has been  Gbserved that it is 
relatively easy for decision makers to agree upon 
problems that have  cabjective, quart ifiable and 
well-defined attributes. Conversely, decisicn makers 
tend ta disagree upon attributes that require 
subjective and qualitative assessments. Further- 
more, in group decision-making, ir additian ta the 
evaluation of the situational prablem, decisicmn 
makers invariably attempt ta evaluate and the 
decisicr analyses of themselves and athers. 


(35) The simplicity af MCDM  cutputs makes it easier to 
communicate, coordinate and aggregate individual 
analyses in the group decision-making process. 


(4) The process often plays ai mare decisive rele than 
the content in group problem solving. MCDM provide a 
simple but structured framework far comtralling the 
decision-making process, 1٦6دس‎ assessment af 
alternatives, assessment af evaluation criteria, 
selection of an appropriate algorithm for assessment 
of preferences, and search for a solution ar 
compromise; 


my) The division cof decision processes irto four stages 
also allcws alternate utilization of both cbjective 
optimization and subjective evaluation. 


(6) 


research 


The iterative use af the MCDM processes would permit 
integration of predecisicn and  postdecision phases 
im the habitual decision phase. 


Specifically, the Co-oP DSS discussed ir this 


attempts ta support the. following decision 


Situation: 


(4) 


(6) 


(7) 


There are multiple users ο decisicn makers. They 
may share an equal weight oar have arn unequal ar 
‘hierarchically’ distributed weight correspemding tea 
a particular decisicn-making coerntext. 


The group shares a common set of feasible decision 
alternatives. Fram this set of alternatives, the 
decision makers can either select ane ar mare 
alternatives, or rank them according ta a given set 
af criteria. 


Each decision maker may have persemal abjectives 
that reflect a priori values and as piration levels. 
Objectives are concretely expressed by criteria or 
attributes that are discrete, and at least ordinally 
measurable. Due ta persanal differences, individual 


decision cutcames-—-as appeased to acellective 
decision eutcome that the group is trying ta reach 
an agreement on--aften differ from ame decision 


maker te the other. 


The decisicn makers can be geographically dispersed 
and not required ta log inte the system at the same 
time. Via a distributed computer network systern, 
they can communicate teo others either sequentially 
or in am on-line made. 


The decision makers interact in a cocperative manner 
and in a trusting environment. The system dees neat 
handle attempts to cheat or ta seek coalition within 
sub-groups. 


The decision makers can either work closely together 
by forming a heamegenecus group that uses a single 
decisicr support system, or work independently and 
then proceed to a multilateral assessment of the 
prabl ern. 


The decision makers can segment a group decision 
problem into (hierarchically) sequential single user 
decisicr problems according te individual expertise 
and responsibility. 
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ο Communicatiens Issues in Distributed Decision Making 


In the context of a distributed group decision 
making, the demands for  infcermation exchange are marked by 
certain characteristics that should be considered in the 
design of communications capabilities. These characteristics 
could be best expressed by the requirements of having 
information exchanges that are (i) format-transparent, (ii) 
either constrained cr unconstrained, and (iii) evolving 
throughout the decision phases. 

a. Need for Fermat-Trarnsparert Information Exchange 

The demand for and/or generation of information 
among decisicr makers can take a variety of formats, ranging 
from unstructured and written notes ta structured = and 
numerical tables [Ref. 4 1. The mast complex farm of traffic 
is the situation in which decision makers simultaneously 
require information exchanges on different subjects from 
different members using complicated combinations οἵ 
input/output formats. It would then be necessary te 
identify, classify and convert information characterized by 
various individual formats into standard message formats, 
including the creation ard maintenance af information 
related ta greup problem solving techniques, such as aggre- 
gaticon of preferences which requires seme standardized 
inputs from individual results. 

b. Limited versus Free Information Exchange 

In same g^cup decision Situations, it is 
ceonceivable that all shared information 15 ‘public’ in that 
every member of the decision group has the right te access 
any information that is sent by one member of the group ta 
another, whereas iri some ather decision situations, 
individual-to-individual or private message transfers are 
authorized  LRef. uel. Thus, the creation, (statistical) 
maintenance and storage of message routing activities 


remains crucial in enforcing grcup norms concerning the type 
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af information sharing Cen consensually predefired by the 
group prior to the  greup decision-making process, or morni- 
tored by the mediator. 

Ge Evolving Fattern cof Communication Requirements 

The requirements for information sharing evalves 
through varicans phases cof the group decisicn-making process. 
Fer example, CRef. 6 J] argues that a group prablem salving 
phase that emphasizes search ard  irnncvation requires more 
spontaneity, and therefore an oper Communications pattern; 
whereas, bargaining activities that induce a preference fir 
deliberate cant rial af information exchange would be 
facilitated by using individual-ta-individual communication 
channels. 

Furthermore, empirical studies have shawn that, 
under certain circumstances, cammunication channels can 
escalate conflict CRef. 7 J. While encouraging informat icr 
exchange betweer group members is aften recognized as arı 
effective Strategy ta resalve individual differences, 
eliminating Communication channels has shawn its effective- 
ness in preventing detericratian af relationships. While the 
decisicm ٤ت‎ encourage or discourage communication between 
decision makers deperds am a number of unpredictable 
Situation-dependent factors, the GDSS  cammunicaticns compa- 
nent should be designed in such a way that it can 
accommodate varicus communications needs and changes during 
the group decision-making pracess. In ather words, the 
pattern af communications protocols shauld vary accerding te 
the dynamics of the group decision-making pracess. 

4. The Rele af the Communications Compaonerit 
One «af the rales af the comnaunications camponent 
that emerges from the literature is that it makes it easier 
fcr each member af the group to electronically communicate 
without having toa be concerned about detailed ard 


complicated pretecal procedures. This issue cf user 
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transparency is particularly crucial given the diversity, 
and  corisequently the ccamplexity, af the  commurnricatiaen 
requirements and facilities. 

However, the effort to obtain ease af communicatian 
access is not unique to the design of graup DSS. Rather, it 
has always peer one of the most important cbjectives af 
computer networks design. Yet, one can identify at least 
three roles that are specific to a communications system in 
group problem =  selvinig. At different phases of the 
distributed decision process, the commurnicatiors system can 
play the role af a coordinator, a detective, cor an inventar. 

a. The Ceardinator Rale 

Most problem salving activity begins with 
Situation analysis and problem definition. Situation 
analysis is characterized by a (common) recognition that 
there exists an urgent and important problem to be solved. 
Once idermtified in the situation analysis, a problem is 
transformed in the problem definition phase ir such a way 
that  scolutions can be generated, analyzed and selected. 
(Ref. 8 J and LRef. 9 J emphasize that the success af 
imnformatian gathering ard problem definition relies an the 
ability af the group to eliminate mistrust and threat that 
could cause group participants ta withheld ar distort 
information. Waltar CRef. 6 1 suggests that by installing a 
communication medium that follows same norms cof fairness 
COM, equality af participatican, preserving autariomy), 
information exchange can be more abundant and accurate. The 
communication component shauld thus coordinate  varicus 
protocols to  ergender participarts' caernfiderce. Such pratao- 
cols could include the cries that (i) assure each member can 
successively broadcast his/her ideas given a equal amount af 
time, or (ii) support telecenferencing to synchronize 


arguments. 
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b. The Detective Role: 

A decision maker’s analysis could be distorted 
by (i) the individual's attempt ta ا ؟‎ an others 
activities, or (ii) the influence of some members who try to 
take over an individual’s responsibility. The communications 
component should then play the role of detective to prevent 
unwanted data exchange or temporarily disable all links, or 
prevent malicious modification of public data. Concurrently, 
decision makers tend to delay sending their individual 
results. The communications component should press its users 
to submit opinions before a giver due date. 

From a general perspective, the detective role 
consists of enforcing  communicatiens protocols previcusly 
defined to drive the collective decision-making process. 

c. The Inventor Role: 

The inventor role is an extension of the 
coardinatar role. Given the complex nature af a collective 
decision problem and the diverse and unpredictable decision 
approaches adapted by the participants, the communications 
camponent should be able to detect incampatible infarmatian 
exchange, and, if possible, propose alternate formats. The 
inventor role implies (i) potential for tolerance ta 
uncertainty in requests and needs for data transfers, and 
(11) continued search for  cammunicatieons operations that 
facilitate information exchange LRef. 10 1. Thus pratacols 
for distributed GDSS should be able to analyze, evaluate and 
determine the content of transmissible information, rather 
than simply perform a transport task. 

The functions of the communications component 
are at least twofold. First, it monitors a broad spectrum of 
data transports during a group problem selving process. This 
transport function ranges from information exchange ta 
information hiding, from selective and personalized routing 


to collective diffusion af data from public ta private 


fu 


informatian. Second, it coordinates various communications 
activities (i.e., initialization, operaticn during consensus 
search, negotiatian and mediation) by making it transparent 


to the members of the decision group. 


B. AN ARCHITECTURE FOR GROUP DSS 

Co-oP is a network of microcomputer-based process-driven 
DSS for cooperative multiple criteria group decision making 
(Figure 1). Each participant of the group decision making 
process has his awn individual DSS whose model base is based 
on multiple criteria decision methods ( MCDM) and ather 
peosonal decisicn support tacls. The group DSS cortains a 
set cf aggregaticn of preferences techniques and consensus 
seeking algorithms that can be used in conjunction with 
individual MCDM. 

The individual DSS are linked together by a microccmpu- 
ter local area network. The latter support both locally and 


remctely (via modem) linked individual workstations. 


MAIN MENU 
| ]. MULTIPLE CRITERIA GROUP PROBLEM DEFINITION 
2. GROUP NORM DEFINITION 


« PRIORITIZATION OF EVALUATION CRITERIA 


INDIVIDUAL EVALUATION OF ALTERNATIVES 


DIRECT INPUT OF THE DATA 
COMPUTATION OF GROUP DECISION 


IDENTIFICATION OF NEGOTIABLE ALTERNATIVES 


Enter a number : 


MAIN MENU 
For HELP enter (ALT) R / (ESC) to quit Help 





Figure 1. The Main Menu 
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III. THE MODEL COMPONENT 


The Model Component of a DSS is expected to support the 
user perform the following problem-solving activities: 
projection, deduction, analysis, creation of alternatives, 
comparison of alternatives, maptimizatian and  simulatian 
CRef. IM" J. The literature in DSS often identifies three 
modules in a DSS model component: the model base, the madel 
base management, and the interface unit. This chapter 


describes the three components af the group DSS. 


A. THE MODEL BASE 
The Model Base of a DSS consists cf a library of 
decision models that help the group members perform 
individual and group analyses. | 
T. Ihe Model Base for Individual Decision Making 
In addition af the possibility for the user ta 
directly enter his preferences/assessments to the system and 
if needed, share them to other group members, the purpose of 
the Co-oP MCDM model base is to provide the decision makers 
with a set of decision models that can salve the most commen 
types of decision problems. Ca-oFP contains two models that 
(i) cover three basic decision situations, i.e., Selection, 
ranking, sartirig, (ii) are not excessively difficult ta use 
for the decision makers, and (111) could interact with 
techniques of aggregation of preferences. The MCDM methads 
implemented in each of the individual DSS are the Analytic 
Hierarchy Process (AHF) CRef. 12 J], and ELECTRE LRef.13 J 
ELECTRE and AHF have been selected for two reasons: 


(1) The two MCDM are conceptually robust, and prac” 
tically easy tc learn and use. They have proven 
their usefulness in aiding a number cf ill-defined 
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decision situations (for example, LRef. 14 J] and 
CRef. 15 1) 


C=) Neither ELECTRE nor AHF require full infoarmatian en 
the decision  maker's preferences and assessment cr 
alternatives, and hence, give mere  autencmy ard 
control ta the decision maker  LRef. 16 1. thes 
feature makes it easier ta expand the algorithm toa 
resolve group decision making. 


This section briefly outlines basic concepts of the 
ELECTRE and AHF methods. 
a. The ELECTRE Method: Basic Concepts 

There are a number of reasons that make it 
difficult for a decisicm maker to exhaustively campare all 
known alternatives. First, the decisicrn maker often cannot 
compare same alternatives, due ta uncertainty assaciated 
with the measurements and  evaluaticn. Second, the decision 
maker may be unwilling to compare twa alternatives because 
they are incomparable; e.g., option A is better than option 
B by same criteria, whereas B is better than A by some ather 
criteria. The nation af indifference in utility theory does 
nat reflect this incemparability  L[Ref. 17 J. Last but neat 
least, the ill-structuredress and  accasicnal inceonsistency 
af the decisicn maker’s preferences are serious cbstacles ta 
enforcing the complete ccamparability af alternatives (see 
[Ref. i2 J ). 

The  cencept af autranking relations seeks tū 
compare decisicn alternatives only when the decision maker's 
preferences are well defined. In other words, a, cutranks a, 
when the information oabtained fran the decision maker's 
preferences safely justifies the  propasition that a!i is at 
least as good as a4. 

The cutranking relaticn can be explained by twa 
further concepts: the presence of concardance (1.e., for a 
sufficiently important subset of evaluation criteria, A is 
at least weakly preferred to B); and the absence of 


discerdarnce (i.e., among the criteria for which RB is 
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preferred to a, there is τσ significant  discordant 
preference that would strongly oppose any form of preference 
cf à over HB). 

These indexes are used in conjunction with 
concordance and discordance *’ thresholds’ chosen arbitrarily 
by the decision maker in the interval (ΓΟ. 11. The concordance 
threshold, p, is more severe as it approaches 1; the discor- 
dance threshold, q, is more severe as it approaches O. Then, 


the outranking relations can be summarized as follows: 





IF THEN 
Ca/B )>= p ard Da ZE (= q fà outranks E 
A cutranks B, and B outranks A The alternatives are 


equivalent 


Otherwise The alternatives are 
incomparable 


The decision maker can start with a less severe 
set of threshold values, and then sharpen them tam reduce the 
nunber of outranking relations. 

b. The Analytic Hierarchy Frocess: Basic Concepts 

The Analytic Hierarchy Process (AHF) is a MCDM 
method that attempts ta support complex decisicm problems by 
successively  decomposing and synthesizing varicus elements 
of a decision situation  LRef. ta J; Like ELECTRE, AHF 
permits subjective and qualitative pairwise comparison of 
alternatives. Unlike ELECTRE whose concept is based cor the 
notion of non-dominated alternatives, AHF has its foundation 
orn the cencept of priority. The latter can be defined asa 
"level of strengths’ of one alternative relative to ancther. 
Departing from a predefined priority scale, the decision 


maker is asked to build a positive reciprocal matrix af 
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pairwise comparison. A vector af priority can be derived by 
computing the eigenvector of the reciprocal matrix. The 
property of the eigenvector resides in the fact that it 15 a 
consistency indicator. Consistency is obtained when pairwise 
comparisons are transitively and properticnally consistent. 
Additional algorithms are added to help measure 
the decision maker’s consistency. These algorithms contrast 
the user's evaluation scares with (i) a randomly simulated 
score that represents the most irraticnal evaluaticn, ard 
(ii) the eigenvalue that represents the most accurate 
consistency. The examination of the consistency values 
enables the user to eventually revise initial judgments, 
arid, if appropriate, modify them to improve  cverall 
camsistericy. 
=. The Model Base for Group Decisicn Making 

Four techniques of aggregation of preferences are 
implemented in the GDSS. They are chosen because of their 
popularity. These include the additive function, the multi- 
plicative function, the sums-of-the-ranks approach, and the 
sumns—-of—-the-outranking- relations approach. 

In conjunction with the techniques af aggregation af 
preferences, the weighed majority rule is also implemented 
to account for the distribution af decision power amarng 
decision makers. This rule allows the group members ta 
differentiate their decisional power according teo varicus 
degrees of expertise or arganizaticnal hierarchies. 


(1) The -Sums-af-the-Outranking—-Relatians Principle 


This technique is derived from the sum-oaf-the-ranks 
technique found in the literature of aggregatian 
af preferences. Formally, it can be expressed as 
follows: 


Max [Í i=1 (k=1 σεν ) 1 


This technique should be used only with extreme 
care. Experience with this technique has shown that 
the idea of selecting the alternative that has the 
highest number of sautranking relations warks fine 
anly when the number af alternatives are small. fn 
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example with three decision makers and three 
alternatives, with ag as the elected alternative, is 
given below. 





Ordinal Ranking Outranking Relations 





Rank DM, Die DMa ai ae as Sums cf the 
Relat icms 


1 es az ag ۹ m = 1 3 
= ae ai Ae až 1 - 1 = 
3 aa Ae Άι as 2 c -- 4 (—Max 


Siuums-—of-the-Rarnks Rule 


The  sums-of-the-Ranks rule (Barda, 1781) can be 
defined as follows: 


where ra ο is the rank assigned by decision maker 
d to alternative ai. The example below illustrates 
this rule. 


Alterr. DM, DMa DMs; SgGums-—-of-the-Ranks 


Δι - + = 1o 
ae 1 1 ο) 3 CS ا ا‎ 
a3 2 2 4 8 
aa 3 3 1 7 


Due to its computational simplicity this technique 
is widely used tc determine carnsensus ranking. Note 
that the averages-of-the-ranks rule yields the same 
results. However, wher there are ties, the results 
are different. 


Additive Ranking 


In the additive ranking method, greup results are 
obtained by computing the arithmetic mean af the 
individual rankings assigned to each alternative. 


Due ta its simplicity, this method remains cone af 
the most papular aggregation af preferences 
techniques. The example below illustrates this rule. 





Altern. DM, Dile DM3 Additive Ranking 





ET 4 2 = TIETE 

Ae 1 1 3 T: 66 

a3 c = ہد‎ c.66 ——» MAX 

Ae E τ 1 CES 

(4) Multiplicative Ranking 

The philesaphy that underlies the multiplicative 
aponraach is to allow more voting power ta each 
decision maker af the  graup. Iri effect, the 
multiplication af individual cardinal rankings 
amplifies the individual opinions. Specifically, it 
allows vetoes to take place. he example below 


illustrates this rule. 


Altern. DM, DiMa DM Multiplicative Ranking 


as 4 4 = 3.17480 
ae 1 1 3 1. 44224 
aa = c 4 z. 5193984 
Ae 3 c 1 Z. 0808 





E. THE MODEL MANAGER 
The role af the madel manager is ta coordinate various 
modelling activities of the  GDSS. In Co-oF, the multiple 
criteria group decision making is decomposed into five 
decision processes (see Figure = ). 
(1) Definition of the Graup Frablem 


The group must agree upon a  cammon problem and 


delegate a group member —-— usually the group leader 
ar the secretary ~~ toa define a problem. In the 

ت-ت٣٣٦‎ context, the defined group problem consists of 
identifying the alternatives and evaluation 


criteria. Section VIII provides an example of this 
process. 


ea 


(4) 
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Group Norm Definition 


The group has t= identify its members and assign 
individual passwords. It also has tz agree upor the 
Way zt handles data transfers, interactive 
Conversation, utilization af electronic mail, ard 
the type(s) af techniques af aggregation of 
preferences adapted. Divisian of evaluation tasks 
between group members can alsa be specified. The 


group can also request antamatic selection arid 
computation af appropriate decision technique. 


Individual Evaluation af Criteria 


This process requires that each group member 
prioritize his/her evaluation criteria. This can be 
either accomplished by asking each decision maker ta 


directly assign weights ta the criteria ar use the 
Analytic Hierarchy Process scheme ta generate the 
weighed ar priority vector., Ca-cF allows elimination 


mf weak criteria. 
Individual Assessment mf Alternatives 


Given a chosen problem, this process allows the 
0۲ members ta individually express their 
preferences regarding the alternatives. This process 
can be either direct (i.e6., the user enters cardinal 
weights ta each alternative) ar indirect (i.e., the 
group member uses ame aor twa available MCDM 
techniques). 


Computation of Group Results 


Guided by the instructiens defined in the group norm 
Cie. the second process), graup results are 
automatically computed ance all individual analyses 
are submitted. 


Integration af Madels 
Unless otherwise specified by the granp narm, the 


group modale autanmat ically searches far all 


aggregat iori techniques that are compatible with the 


individual MCDM used. If direct assessment af alternatives 


ar AHF 


has beer adopted by every gr^cup memben^ for individual 


assessment af alternatives, all of the four implemented 


techniques will be computed, since the latter are compatible 


with the AHP in that they are based on cardinal preferences. 


However, 


the  ELECTRE method can work manly with the 


Sums-of-the outranking-relations and, ta a certain degree, 


the sums-of-the-rarnks algorithms. 
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When bath available MCDM are used concurrently By a 
group member, the Ca-oF model manager automatically searches 
for group decision techniques that can accept inputs fron 
bath AHF and ELECTRE. When a single user alternately uses 
bath available MCDM, the  Cao-oP model manager sequentially 
displays group results according to all possible combina- 
tions of individual methods. 

Such a sensitivity analysis constitutes a point of 
departure far the group to start exchanging paints af view 
and directions ta reach agreement, and, if any, reducing 
tension. The group can then temporarily exit from ELECTRE, 
and use the electronic  notepad tà  informally resolve these 
problems af control and af tension management. If same 
cancessians can be obtained, the participants can return tao 
)۸۱ا۴‎ 63 modify evaluation Scores accordingly. By 
switching back and forth between the individual DSS and the 
group DSS , the participants can perform 'sequerntial conces- 
5 10۲7 . 
and Techniques cof A ation 


c. Combined Use af MCDM 





af Preferences 
Fui CRef. cj] argues for a unified MCDM framework. 


Such an attempt is necessary to (i) support a wide range af 


decision situations, το enable economy of informatian 
search, (iii) allow division of evaluation tasks. In the 
σι version implemented fo^ this thesis, there are three 


possible levels af interaction between  ELECTRE and AHF. 
First, ΕΕ ΕΙΠΕ when used alone, assumes that the decisian 
has a defined vector of criterion weights. AHF can help the 
ELECTRE user perform prioritization of evaluation criteria 
prior ta the pairwise evaluation af alternatives. Second, 
when the size of a decisicn problem is large, the number af 
inputs required toa perform the AHF methad can be excessive. 
The Co-oF user can use ELECTRE as a serting tool to reduce 
the problem size, and then utilize AHF. Third, since the twa 


methods refer to the same decision space (defined in the 


3 


Co-oP first process), they can be concurrently used ta 


verify the decision maker's consistency. 


E. THE LINKAGE MODULE 
The purpose of the Co-oF Linkage Module is tao feed input 
data to various models of the Model Base and tea route output 


data to various files managed by the Data Hase Campaonent. 


START 
E CREATE THE PROBLEM CREATE THE NORM Ἴ 


—filei— —filee— 


EVALUATION GF CRITERIA 
en] [ee 


file3— 


EVALUATION OF ALTERNATIVES 


στη DIRECT ELECTRE 


files— 





DIRECT INPUT OF DATA 


GROUP RESULT 


Figure 5. The Co oP Decision Making Process 


iv THE INTERFACE COMPONENT 


A. SCREEN DESIGN 

Despite the structured aspect of the multiple criteria 
group preblem solving processes, it remains an eventual 
burden for the decision makers to memorize what he has deme 
in the previous steps. Maintaining a high degree of 
coordination and  cohesiveness of thoughts is particularly 
prevalent in camplex decision problems CRef. 17 1. 

Screen Format: During the problem definition and the 
group norm definition processes, data entry in  cutline form 
is adopted. Such an entry form would not only facilitate the 
thinking process of themanagers, but also help decompose 
objectives into hierarchical levels L[Ref. i2 1. Section VIII 
exhibits examplesaf the cutline forms used for defining the 
collectivedecisicon problem and the definition af group 
rims. 

For the multiple criteria group decision processes 
(1.@., processes 3 through 7), Ce-cP proposes a screen 
format that displays simultanecusly four different windaws 
(see Section VIII). Whenever passible, Co-of uses the same 
screen format throughout its usage. The purpose af such a 
design is to provide the user with a synaptic andfamiliar 
snapshot af the current state of the problem, throughout 
the entire decision-making process. 

The Step Window located at the  bottem screen keeps the 
decision maker up to date on the current decision making 
status. It consists of a twa-linestatus text indicating 
alternatively the current step in the hierarchy of graup 
problem processes, and any required  prempts or diagnostic 


messages related to the DSS-user interacticn. 
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The Dialogue Window provides a conversational medium 
between the decision maker and the DSS. It enables the 
Question/ Answer mode af interaction ta be accompanied by 
verbal and colar/graphic explanation of varicus processing 
sequences and intermediate results. 

To support the decision maker’s orientation during the 
group decision-making process, the Working window at the 
upper left corner of the screen reminds the user of vital 
information from past dialogue or inputs. Also, it displays 
the results obtained by other participants if requested. 

The Saluticon window is located at the upper right of the 
screen. It displays intermediate and finalresults including 
statistical indexes, and highlights coptimal values. Tabular 
autputs and bar graphs are combined ta provide alternate 
ways ta represent outputs. | 

Threughout the entire Co-oP process, the windows can be 
recognized by their colors. However, they vary in size 
according to the required amount of information displayed 
)6٥ ہو‎ number af decision makers, ۳۱۳ mf decision 
alternatives, ard number of evaluation criteria). 

Ir addition ta the above mentioned window, an electronic 
netepad window can be invoked at any time ta make use af 


person-oriented and unstructured communications. 


H. DIALOGUE STYLE 

In addition to the windew structure that geverns the 
entire Όσο graup decision making process, Ca-3aP combines 
menus and questions to communicate with its users. The 
purpose of these dialogue styles is to provide the users 
with a structured, Simple and controlled framework ta 
interact with an integrated set of multiple criteria group 
decision methods. Whenever possible, concise queries arid 
uniform terminology are used throughout the six processes af 


the Co-oF group decision making process. 





The use of menus and queries also facilitates establish- 
ing error procedures. Although error control procedures are 
not unique ta the design af multiple user interface, an 
eventual I/O error occurring in a group DSS can generate 
unexpected and severe ccansequences in a distributed DSS. 
Input control routines have been implemented at each entry 
level to minimize the likelihood of input errors, cr to 
maximize the possibility of recovering from errors when the 
latter occur. 

To handle errors made by the users, Co-oP provides two 
types of errar control procedures. The first type caf 
procedure detects syntax errors. Far instance, entering a 
negative number af decision makers or typing an invalid 
Filename would be gracefully rejected by the Ca-cF dialague 
manager. The second type af control routines attempts ta 
prevent decision makers from violating basic assumptions or 
rules of the decision methods. For instance, the dialogue 
manager will refuse a concordance threshold higher than 100 
percent when ELECTRE is used. 

Co-oF also gererates short explanation messages in the 
Step window ta maintain the user confidence in the system, 
or at least make the multiple criteria group decisicn making 


less urmatural ta the users. 


C. THE HELF COMMANDS 

Help facilities are implemented arn a separate and 
resident pregram that can be concurrently invoked during the 
Co=oFP decision-making process. Due ta its relatively large 
amount of text, the help program is hierarchically broker 


down into eight section (see Figure 3). 
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HELP FOR Co aoP 


MAIN MENU 
(1? Gereral Information 
(2) Create a new Problem 


(3) FPricritization of Evaluation 
Criteria 


(S) Evaluation of Alternatives 
(6» Direct Input of Weights 

(7» Computation of group Decisicocr 
(8> NA I 


SELECTION : 


HELP FOR Co oF 


SUBMENU 1 - GENERAL INFORMATION 
What Co oF IS 
How to Use It 
AHF Method 
Electre Method 


SELECTION : 





Figure 3. The Help Menu 
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M. THE DATA COMPONENT 


A. THE DATA STRUCTURE 

The current version of Co-oP is a process-cerntered group 
DSS, as opposed ta a data-centered DSS (far instance, see 
[Ref. 18 1). As a consequence, the structure of the Co-aoF 
data component is minimal. Its objective is ta (1) insure 
smooth and fast data transport from one MCDM step to the 
ather, and (ii) facilitate data exchange between decisicn 
makers. 

Data files are grouped accordirg to each process. These 
include (i) a file containing the preblem definition 
(Process 1), (ii) a narn file for each group norm, (iii) a 
solution file for each group members, and (iv) a group 
results file for each decision problem. Data dictionaries 
are given in Tables 1, ہت‎ 3 and 4. 

To minimize the time needed for data transfers between 
individual workstations, data files are physically cerntral- 
ized and stared in the server “ef the Local Area Network. 
However, they are functionally distributed in that they can 


De accessed only by authorized group members. 


B. THE DATA MANAGER 

In the current version of the  GDSS, the Data Manager 
performs a dcuble functions. Γον» assures that data are 
correctly transferred ta their location, and (ii) checks the 
consistency transfer, i.e., validating the number af data 


modification. 


LOGICAL DATA BASE 


PROBLEM 


name 1 


levels 


numofalternatives 


levell 


level 


levels 


levels 


levels 


level6 


level7 


levell 


sublevell 


sublevelz 


alternatives 


END 


TABLE 1 
RECORDS FOR STORE THE DATA OF A PROBLEM 





string, it holds the name of the 


problem. 


Integer,it holds the number af the 


criteria 1 - 5 


Integer, it holds the number of the 
alternatives that a problem have 
array[i.. 5] ef string, it holds the 
mames of the criteria of level 1 - 5 


arrayL1..5,1..5J) of strings, 
the names af the criteria of 
1. eS) Se ο) 

Απ ر3ے .۷1ہ‎ 12۰53۳66 ۷٦ 
the names cof the criteria of 
1.1.6195) ICSC DD 
arrayti..5,199 317 of strir; 
the names cof the criteria af 
κ αι IG) 
arviayll.. 3, l..0) of Strings, 
the names of the criteria of 
Sl. (IS) πο οί του 
array[1..5, 1..51l cof strings, 
the names of the criteria of 
Φ. 1. (1-9) - 4.5(1-92) 
array[i..3,1..53] of strings, 
the names of the criteria af 
5. 1. (1-53) = 3. 5(1-3) 
integer, it halds the number 
criteria IL SS 


it halds 
sublevel 


it halds 
sublevel 


it holds 
sublevel 


it holds 
sublevel 


it holds 
sublevel 


it holds 
sublevel 


af the 


array[1i. 3] cof integers, it halds the 
number af the criteria for sublevels 


E a ea) 


arrayL1..5,1..5J) of integers, 


L Ë 


holds the number af the criteria in 
sublbevelsP@ i. 1l. (1-5) — m 5. (1 -5) 
arrayL1..15J) of strings. It holds 
the names af the alternatives af 


the problem 


SOLUTIONI 


LOGICAL DATA BASE 


pfactor,qfactor 


numofcriternria 
numofalternrnatives 


alternatives 
numofusenrs 
solved 

grading 
completed 
completedall 
vectori 
vectonrz,vectenr3i, 
vector4, vectors, 
2ح٤ 6ہ‎ vectar?7 


normvectarl 


normvectore 


۳۰۳۴۲۸ 1 ۳۱٣ 2ج‎ × 
altmatrix 
finalindex 


= RECORD 


TABLE 2 
RECORDS FOR STORE THE DATA OF A FROBLEM 


integers, they holds the Concordance and 
Discordance Threshold 

integer, it holds the number cf criteria 
integer, it holds the number of the 
alternatives 

arrayll..93] of string , it holds the name 
af the alternatives 

integer, it indicates the rnimber af the 
users 

array [1..3] of bomlean,it indicates if a 
particular user has salve the problem 
array[i.. 3] œf e@rrayll..31],1t contains 
weights of criteria 1 - 3 faor each user 
boolean, it indicates if the evaluation c 
the criteria is completed of all the user 
boolean, it indicates if the prcblem is 
solved 

arrayll..S] cf reals, it contains the 
weights af the criteria of sublevel i -3 


array [1..5,1.5J of reals, it halds the 
weights af all the rest criteria 

array [i.. 1251] af strings, it holds the 
(names cf the final criteria ( after the 
evaluaticn ) 

array [1..125] of reals, it halds the 
weights of the final criteria ( after the 
evaluaticn ) 

arrayll..vectarg 5 

altrix[i..95 alterrnatives,l..4 criterial 
arrayli..3] of boolean, it indicates if a 
specific user has compute the evaluation 
af the alternatives 
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TABLE 2 


(continued) 





ahp : record 


status boolean, it indicates if the solution 
of a problem has been computed with the 
AHP 
altvectorl arrayCi..9] of real, it contains the final 
weights of the alternatives 
numoftries integer, it indicates how many times the 
user has modify the salution of the 
problem 
end ; 
electre : record 
status bacolean, it indicates if the solution of a 
problem has been computed with the ELECTRE 
outranking arrayľ[i..3,1..93] af char, it contains the 
cutranking matrix far the alternatives 
numoftries integer,it indicates how many times the 
user has modify the solution of the 
problem 
end ; 
END ; 


LOGICAL DATA BASE 


usersnames 


usersids 


numofcriteria 


nrumofalternatives 


alternatives 


nonmvectori 


rior mvectiurnz 


ahp 


Status 


altvectarl 


nunmartries 


end; 


record 


electre : 


status 
cutranking 


nunaftries 


end 


END 


we 


record 


TABLE 3 
RECORDS FOR STORE THE DATA OF A FROBLEM 


array L1..3J] of stirngs, it holds the 
names of the users 

array L1..3] of strings, it holds 

the users id 

integer, it holds the number of criteria 
integer, it holds the number of the 
alternatives 

arrayli..9] af stringd, it holds the name 
of the alternatives 

array [1..125] of strings, it halds the 
names af the final criteria ( after the 
evaluatian ) 

array [1.. 1253] of reals, it halds the 
weights cf the final criteria ( after the 
evaluation ) 


boolean, it indicates if the saoluticn 

cf a problem has been computed with the 
AHP | 

arrayli..9] af real, it contains the final 
weights cf the alternatives 


integer, it indicates haw mary times the 
user has modify the solutior of the 
probler 


boclean, it indicates if the solution of a 
problem has been computed with the ELECTRE 
array[i.. ϐὉ Ἱ.. ο]. af char, it. certains the 
autranking matrix for the alternatives 
integer, it indicates haw many times the 
user has modify the solution af the 
problem 
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LOGICAL DATA BASE 


NORM = 


numofusenrs 


modifytimes 


lasttime 
usersnames 


specindex 


usersids 


weight 


agregation 


ria l 


specialized 


broadcasting 


modify 


agregatiarnname 


END 


RECORD 


TABLE 4 
RECORDS FOR STORE THE DATA OF A FROBLEM 


integer, it holds the number of the 
users that are going to solve the 
problem 

imteger, it indicates how many times a 
user can modify the solution of the 
problem 

integer, it indicates the last date that 
a user must submit his solution 

array (€1..3] of stings, it holds the 
names af the users 

array[1.. 5] of strings, it indicates the 
Criteria that each user is going to solve 
in the division of tasks case 

array [1..31 of strings, it holds 

the users id 

array[i..3] of real, it indicates 

the weight of the decision of 

each user 

boolean, it indicates if we are going to 
use all the techniques of aggregation 
af preference 

boolean, it indicates if the progran 
will use NAI automatically after the 
complication af the group result 
boclean, it indicates if we are going 

to use divisicm cf tasks or nat 

boolear, it indicates if the users have 
the right ta see the others users 
results 

Dooclean, it indicates if the user has 
the right to modify the solution of 

the probler 

array[i.. 4] of characters, it indicates 
the techniques af agregation of 
preference that we are going to use 


+ 
ru 


VI. THE COMMUNICATIONS COMPONENT 


A. THE GROUF NORM CONSTRUCTOR 

The Co-oP Group Norm Constructor resides in the second 
Co-oP multiple criteria decision making process. The group 
leader or secretary has to initiate the group decision 
making by (1) identifying the group members, (2) assigning 
respective decision weights, (3) determining the mode of 
group decision making (e.g., division of evaluation tasks or 
‘pooled’ decision making), (4) selecting the techniques af 
aggregation of preferences, (3) setting the mode acf 
information exchange (i.e., broadcast of individual 
results), and (6) defining the deadline for the group 


members ta submit individual results. 


B. THE GROUP NORM FILTER 
The  Co-oF Group Norm Filter consits of a set af 
subroutines that enforce the norms set by the Group Norn 


Monitor. 


C. THE FORMATTER 

The main rale of the Ca-cF  formatter is to convert 
individual results computed by the ELECTRE and AHF methads 
tc data formats that can be inputted into the modules 
containing the techniques of aggregation of preferences. For 
instance, individual cardinal rankings are converted inte 


ordinal rankings for the sums-of-the-ranks algorithm. 


VII. IMPLEMENTATION OF THE GDSS 


A. SOFTWARE STRUCTURE 

Turbo Fascal cannot handle program files whose size is 
larger than 62 kilobytes. To override such censtraint, Co-oP 
has been decomposed into 15 including files. The latter are 
described below. also, filenames under IBM-PC-DOS cannot 
have mare than eight letters, abbreviated filenames have 


been used. 


018111 
PROCEDURE DIRLIST displays or the scrren the existing files 


of previously defined problems (problem rname.def) 


DIRLIST2 
PROCEDURE DirListA The same as above but fer the norms 


files (narm_name.gr). 


PROCED 

FUNCTION STUPCASE turns a string ta uppercase characters. 
FUNCTION EXIST examines if the file requested by a user ta 
access exists. If it exists it returns the value TRUE else 
returns the value FALSE. 

FROCEDURE WAIT stops the execution of the program until the 
mament that the user will hit a key. 

PROCEDURE CLEARSCREEN clears the screen for line i ta line 
10 to make space for new data. 

PROCEDURE CONVERT converts a string to the correspeanding 
numerical value 

PROCEDURE IDENTIFY reads the user input and accepts it only 
if it is Y or N. 
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PROCEDURE CHECKNUMBER reads a number that the user enters 
and accepts it only if it is within a predefined range. 
PROCEDURE SORTi1 sort an array of numbers. 

PROCEDURE WRITENORMFILE reads fram the program the current 
norm data and writes them in a file (e.g., data af the 
current norn). 

PROCEDURE WRITEPROBLEMFILE reads the norm data from the 
current norm file ard passes them to the program. 

PROCEDURE RERDFROBLEMFILE reads from the program the problem 
data and writes them in a file (e.g., data of the current 
problem). 

FROCEDURE READNORMFILE reads the data far the carrespending 
norm file and passes them ta the progran. 

PROCEDURE READSOLUTIONFILE read the data from the user file 
and passes them ta the pragram 

FROCEDURE WRITESOLUTIONFILE reads the current user data from 


the problem and writes them to the current user file. 


FILES 

PROCEDURE OFENFILE opers for the first time a file that it 
will keep the data of a new preablem. 

PROCEDURE OFENSOLUTIONFILE opens fer the first time a file 
that it will keep the data of the solution of the prablem ( 
ene for each user). | 

PROCEDURE OFENNORMFILE apens far the first time a file that 


it will keep the data of a new narn. 


۳۸۱۳۲ ΕΤΕΡ 

PROCEDURE DISKDATA asks the user if he warts to see a 
predefined problem or norm. 

PROCEDURE DISKSTATUS displays all the existing problems and 
norms of the current directory. 

PROCEDURE READI asks the user the name af the problem that 


he wishes to solve. 


PROCEDURE READS asks the user the name of the norm that he 
wants to use. 

PROCEDURE READS asks the user’s name. 

PROCEDURE READS asks the user's password. 

PROCEDURE READS asks the decision method that the user is 
going to use. 

PROCEDURE DATA includes readi, reade2, read3, read4. 

PROCEDURE FPRIORITYOFCRITERIRA permits evaluation a f 


evaluatian criteria. 


STEP 1 

FROCEDURE CREATEFPROBLEM reads the data af a new prablem and 
writes them in a file. 

FROCEDURE DISPLAY displays the data af a problem ta the 
screen after the request af the user. 

PROCEDURE CORRECTDATA corrects the data of the problem in 


case af an error accurs. 


STEPS 
OVERLAY FROCEDURE NORMDEFINITION reads the data of a new 


rarm and writes them in a file. 


STERPZ=1 

PROCEDURE NORMSELECTION asks the user ta select orne af the 
existing norms. 

PROCEDURE  DISFLAYNORM displays the data af a norm to the 


Screeri. 


STEPS 

FRIORITYOFCRITERIA is the mair progran for the evaluation of 
the criteria. 

STER 3—1 

OVERLAY PROCEDURE EVALUATE includes the evaluation of a set 


of criteria using AHP. 
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(OE ——— 


OVERLAY PROCEDURE DIRECT1 is similar to the previous 


procedure but using direct mode. 


STEER 

PROCEDURE SELECTCRITERIA camputes the final weights after 
the computation of all the sets of criteria. 

FROCEDURE FINALCRITERIA gives the user the opportunity to 


reduce the number of the final criteria. 


STEPS 

PROCEDURE SOLVEWITHAHP ceomtroels the evaluation ta the 
alternatives if the user select : AHF, direct made, general 
direct made, and displays the firal weights fer the 
alternatives. 

FROCEDURE COMPUTERLTERNATIVES ceamtreols the camputation af 
the alternatives according ta the method that the user is 


going te use. 


STEF4-—1 

OVERLAY PROCEDURE EVALURTE1 evaluates a set af alternatives 
using AHF. 

OVERLAY PROCEDURE EVALUATES, upon request, assigns weights 
in a set στ alternatives directly (withaut grading 
previcusly the criteria). 

OVERLAY PROCEDURE DIRECT#A evaluates a set of alternatives 


using the direct mode. 
STEP4-—-2 
OVERLAY FROCEDURE ELECTRE evaluates a set of alternatives 


using the ELECTRE method. 


ΞΤΕΕΘ 
OVERLAY PROCEDURE GDSS ccaomputes the group results. 
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Ee EFFORT DISTRIBUTION AND MAINTENANCE PROBLEMS 
T Effort Distributiocrn 
The development of the software took approximately 


Six man-mernths. The effart distribution is indicated belacw: 


TABLE SŠ EFFORT DISTRIBUTION 


AHF & GROUP USE OF DIVISION 
ELECTRE} MODULE; NORM OF TASKS 


Initial — ο. 


Detailed Design 


کے 
am rus a‏ 
٠‏ ا :ا 5 | & | [wee mess‏ 
ا ٤ا‏ :ا Deme mem [S‏ 


It is worth noticing that the iterative design 
adopted for the develapment cf Co-cF has helped ir 
incrementing the functicnalities af the software. 


: Implementation Frablems and Maintenance Issues 


fia 





(1) Design af Algorithms: 


The understanding of algorithms, conversion of 
algorithm ini Structured pseudo-ccodes required 
elaborated design. 


Ca) Pragramming Language: 


Mastering the language adopted for the software 
development has taken a substantiallearning effort. 
Window scrolling, overlays, curser  handling--due to 
the limited capabilited of the programming language 
——took a non-negligible learning effort. 


(3) Debugging logical errors: 


Due to the complexity ofthe data structures, in 
Particular, the manipulationof matrices in the AHF 
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techniques and the integration of  multiple-user 
files, testing the correctness of data transfers 
represented an important part in the testirig phase. 


49 


VIII. REMOTE MULTIPERSON DECISION MAKING IN MILITARY, 
STRATEGIC PLANNING 


A. | EXAMPLES OF POSSIBLE USE OF GDSS IN THE MILITARY CONTEXT 

The proposed software is most appropriate for decision 
&ituaticrs where there is distribution in space and in time. 
Such decision settings are aften encountered at varicus 
high-level decisicm making in the armed forces as well as in 
the Civil government. The example discussed below 
illustrates an  decisicrn example that deals with the 


selection of a naval warship. 


B. A HYPOTHETICAL EXAMPLE 

Ta exemplify the potential usefulness of the develaped 
software, this section describes a hypothetical example. The 
latter consists of selecting a naval ship. Two scenarios are 
discussed  belcw. The first «me assumes .a multiple-user 
decision situation where there is an exclusive division af 
tasks at upper-level decisicm. In other words, Au group 
member is assumed to have special expertise and is assigned 
to evaluate the alternatives according ta the decision 
criteria closely related ta his knowledge. The  secend 
scenario illustrates a group decision situation where 
collective assessment at the staff level is performed. In 
other words, each group member has his/her opinions an the 


entire set af evaluation criteria. 


SCENARIO 1: DIVISION OF TASKS AT UPPER-LEVEL DECISION 
(1) Decision alternatives: 


Naval ships can be bought from three countries: the 
United Kingdom, the Netherlands and West Germany. 
This example coancentrates cm a particular class af 


SO 


(4) 


warship, 2 و 6ء‎ the Carvette. For the purposes cf 
this scenario, the specifications of the three ships 
are given in Tables 6 and 7. 


Decisicn makers: 


Decision makers include the chief of the weapan 
department, the chief of the engineering department 
and the chief of the electronics departmernt.011 of 
the above officers are under the cammarnd of the 
chief af department af new  constructers, a Real 
Admiral. Each cf the officers has specific expertise 
lr the perfarmance evaluatian af the ship 
candidates. The chief of the weapon department, 
officer enjoys however the highest decision power. 
It is assumed that the decisicn makers operate under 
more ar less complete  irformation about the ships. 
Each decision maker has a technical staff af his awn 
that performs detailed Surveys af the 
characteristics of the ships. 


Decision making norms: 


To get started, a member of the decision group has 
to define the decision nerms. It is assumed that the 


chief of the weapoer department takes this 
responsibility. As discussed in Chapter V, the greup 
leader sets different distributed computenr-based 


cemmurnicatierns norms. Figure 4 is an actual display 
Screen cf the interactive norm definition process. 


Decision making procedures: 


The evaluation process is broker down ta group 
members. Each decision member has the exclusive 
right ta assess the alternatives according to the 
criteria that are related to his expertise. 


Evaluation Criteria: 


For the sake of simplicity, this example excludes 
political and economical issues that in real-life 
Situations often play an important rale ain the 
selection process. The  evaluatioar Criteria are 
grouped in feur sets: gun systems’, ’electrenics’, 
engine’? and ’cast’. The latter are respectively 
analyzed by officer chief of the weapon department, 
the chief of the engineering department and the 
chief cf the electronics department. Such a division 
of evaluation task 1S motivated by the fact that 
each of the officers detains unique expertise their 
field. Figure 3S lists the criteria chosen far the 
ship selection preblem. 


TABLE 6 SPECIFICATIONS OF THE WAR SHIPS 


GERMANY, FEDERAL NETHERLANDS 


αν‏ جح ھچ 


TYPE 


DISFL 3600 - Full load |3050 - Stardard |3000 - 
(toris) 3630 - Full 1cad|;3700 - 
DIMENSION 130x14. 5x6. 5 130. 5x14. 4x6. 2 133x15x43 
(ft) 


E 212 ASW c Lynx helicopter 


AIRCRAFTS |2 Lyrix helicopter| 2 ABR 218 
with AGS 18 senar|] helicopters 





MISSILES SSM: 8 Harpoon SSM:4 Harpooar 
SAM:1-8 Sea Spar |SAM:NATO Sea 


e mult sting laun|Sparraw FDMS 


chers;< RAM ASDM 


GUNS 1—76mm/623 -ت‎ 7/) ۱/63 
Breda 105 mm zo Compact 


tube rocket laun 





A/S 4 Mke SS torpedo |4 MKE torpeda 
WEAF ONS tubes fot Mk 46 tarp tubes 
MAIN 2 GE-LM 2500 c Roalls-Reyce 
ENGINES Gas Turbines ΤΗ ΣΕ Gas Turb 


2 MTU 20V 956 c 





Ralls-Rceyce 
τος Diesels RM1C Gas Turb. 


UNIT. KINGDOM 


m 


Γι! 


Standard 
Full load 


SSM :8 Harpaan 
SAM :Sea welf VLS 


1-4.5 in 55 Mk8 
C/WS:2-30 Irn 
Goalkeeper 


6 STWS torpedo 


c Rolls-Royce 
SM1A Gas Turb. 

4 Paxman Valerta 
Diesels 

= Gec Electr Mat 


SPEED 30 knots 30 knots “8 knots 
(KNOTS) 
RANGE 4000 4700 7800 


(miles) at 18 knots 





at 16 knots 


Pw u 


(n 


[ú 
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at 15 knots 


TABLE 7 SFECIFICATIONS OF THE WAR SHIFS 


FEDERAL, GERMANY 
RADAR 
1. SURVEILLANCE : Type 996 , FPlessey AWS - 5 
plus AWS - 6 
Z. SEA WOLF GUIDANCE Twe Marcory Type 131 
3. NAVIGATION One Kelvin Huges Type 1007 
SONAR 


Type 2050 ( Baw Mourted ) 
Type 2031 ( Towed array ) 


UNITED, KINGDOM 


RADAR 


1. SURVEILLANCE HSA DA O8 
=z FIRE CONTROL HSA WM 25 and STIR 
3. NAVIGATION. SMA SRM نات‎ 
SONAR 
Active Flassive Atlas DSQS 51 HZ ard HO 
NETHERLANDS 
RADAR 
1. SURFACE SURCH Ore DA — o8 
2Z. FIRE CONTROL Orne LW - o8 
One WM 25 SYSTEM 
One STIR 
3. NAVIGATION Ore ZW - 06 
SONAR 


SOS - SOS Baw Mounted 


Cn 
ω 


(6) Individual Prioritizaticn of Evaluation Criteria: 


As discussed earlier, Co-aP currently pravides twa 
modes for individual prioritization af evaluation 
criteria. Each group member can choose any 
combination of these two modes. Fer this example, 
the chief of the weapon department, the chief af the 


engineering department and the chief of the 
electronics department respectively chose the AHF, 
direct, and direct methods. Figures 7 ta 16 
successively display the out puts G f the 


prioritization precess of the three decision makers. 
In order ta reduce the numberf evaluation iteration, 
the criteria that score low values are eliminated 
(Figure 17). 


( 79 Individual Evaluation of Alternatives 


Ta Support the individual evaluaticn ef 
alternatives, three methods are supported by Co-aeF: 
direct assessment, AHF and  ELECTRE. The results af 


— 


this process are given in Figures 18 to 26. 
(8) Group Result 


The group result is displayed in Figure Z3. It is 
a combination of the outcomes generated by three 
decision makers. Figure 2S suggests that TYPES is 
the best one, with an overall score of . 354. 


SCENARIO Z: COLLECTIVE ASSESSMENT AT THE STAFF LEVEL 

Ts illustrate the Co-cP ability to handle group decision 
making Situations where division af evaluation tasks does 
mat apply, this scenario is identical ta the first ane with 
the exception in that there are only four evaluation 
criteria. Furthermare, these criteria are used by all 


decision members for evaluating alternatives. 


(1) Decisicm alternatives: Same as in Scenario 1 
(2) Decisicrn makers: Same as in Scenario i 
(3) Decision making norms: 


Figure 24 is an actual display screen af the 
interactive norm definition process. 


(4) Decision making procedures: 


Unlike in scenario 1, each decision member assesses 
the alternatives according to all cof the criteria 
that are defined for the problem (See Figure 22). 


(5) 


(6) 


(7) 


(8) 


Evaluation Criteria: 


For the sake of simplicity, this example retains 
only Το principal criteria, i.e., I gun systems’, 
7electronics’, ’engine’ and 'cost!'. 


Individual Prioritization of Evaluation Criteria: 


Figures 27 ard 28 display the outputs of the 
prioritization process of the first decision maker. 
In order to reduce the rumnmber of 1۱ہ‎ 01 
iteration, the criteria that score low values are 
eliminated (Figure 29). 


Individual Evaluation af Alternatives 


The results cf this process are given in Figures 30 
to 41. 


Group Result 


The group results are displayed in Figure 
(computed by the Direct Made) and Figure 
(computed by ELECTRE). With the direct made, TYFE 2 
is First iri all aggregation of preferences 
techniques, including the sumnms-cf-the-ranks, the 
additive rankirig, the multiplicative ranking and the 
sum-af-outranking-relaticans. This result is 
confirmed by the ELECTRE made. Nate that in the 
latter mode, only the sums-of-the-rariks and sums-of- 
cutrankings relaticrs are computed. 


fa Pu 
Ch + 


a 
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IX. CONCLUSIONS 


This thesis was concentrated cr the extension of a the 
Co-oP decision support system for multiple criteria group 
decision making. The development focused in the creaticn af 
a camputer-based communications framework for supporting 
decision making Situations that are distributed in time and 
in Space. The software is written irn Pascal and is 
aperatianal in a network of three personal computers. 

A naval warship selection prablem was discussed ta 
illustrate the usefulness of the implemented  gr^cup decision 
support system. 

However, the proposed decision suppport system can only 
be applied to a certain class of decisien Situations. in 
effect, the  decisicn makers are assumed te be cooperative, 


and knowledgeable about multiple criteria decisicon making. 


APPENDIX A 


THE FROGRAM LISTING 


PROGRAM GDSS_¢ INPUT , OUTPUT ) ; 
ο ον 
L ABEL 


narmdet, back, solvel, scolvee, solves, 
teles , create ,qdssi,nai, 14 , ea, Sa ° 


CONST 
size = cO 3 
ت 111 110کت‎ es 
poasitianz - 5 
pasitions = Gl 3 
maxcriti = 5 
maxcrite S 
Maxcrits = 5 ۽‎ 
windows = 3 Js 
۳٢٢٢ > arrayli..Windaws,1..4] of Integer 
SONG. ο 708,991.59 J) 
ιο, 78, αἱ a 
Omer co, Ὁ. 0. MEL) 
TYPE 
name = string [size] : 
ask = string [5]; 
calar = string ΓΕΘ} : 
۳1 = array C1l..Maxcriti,1..Maxcritij af integer ; 
level = array Ci..Maxcriti,1..Maxcritidjd af name ; 
vectcrs = array Ll..FWFaxcritl,1l1..MWaxcritll of real ; 
Πο "5 = array C1..2¢4,1..24 ] af real ; 
arayl = arpay [1.. 35 1.4. 9] of realm 
Title = array [1..Maxcritij af rane 3 
rini = array Li..Maxcritil] af integer ; 
vectearsi = array C1i..Maxcritid af real ; 
vectorg - array L1..125] of name 3 
megbonr = array (1..1251] of real ; 
vecterf = array C1..282 af real ; 
titlei = array [1i1.. 20] cf name ; 
riamec = array (1..6] of name ; 
array? — νο δι. 31. ο) of char i 
elpida = arrayli..4] of char 5 


Casel = record 


namel : name ; 

niuumneofp^oblem,levels, 

nuumsfaltenrnatives ,numafusenrs : integer ; 
levelz,level3,level^4,level5, 


level6, level7 : level ; 
levell : title 3; 
sublevell : runi ; 
sublevel23 : num Ὁ 
alternatives : titlel 


a8 


end (* record *) 5 


caser = record 


ofactar, qractar : real 
numafroriteria : integer ; 
nunmafalternatives : integer ; 
alternatives : titlel ; 
niumcfiuüserns : integer 3j 
solved : array (1..3] af boolean ; 
grading : arayl ; 
Completed : boolean 5 
campletedall : boaclean ; 
vectori : vectorsi ; 
vectored, vectors, vector, 
vectors, vectar6é, vectar7 : vectors و‎ 
narmvectarl : vectarg 
narmvectare 5: vectarr 
۳١٢١٢٢ 1 ۳ @ X vectarg ; 
altmatrix ٦3ت‎ ۰1× فات‎ ; 
finalindex : arraytí1..231] of boolean ; 
Finalindexi : arrayli..3] of boolean ; 
ahp : recerd 
Status : baolean 3; 
altvectari : vectarf 
۳٣ت .5ج۴۰1‎ : integer 


`... 


5. 
... 8 


So we 


end و‎ 

electre : record 
status : boolean 5 
autranking : array3 : 
numaftries : integer ; 

end 5 


end ;(* record κ) 


sSoaluticni = record 
“username 5 name : 


userid : name ; 
riumaferiteria : integer ; 
nemavectierl : wectorg ; 
۳٣۰۲۸۷ 61 ت٘ت‎ : vectern و‎ 
numcofalternatives : integer ; 
alternatives : titlel : 
ΑΠΡ : record 
status : boclean ; 
numaftries : integer ; 


altvectori1 : vectorf و‎ 


end ; 
electre : record 
status : boolean ; 
nüumocoftries : integer ; 
cutranking : amrm^ay? 3; 
end ; 


end 3; (* recerd *) 


ric nmi = record 





nuüumofusers , 
madi fyt ines, 
lasttime : integer ; 
| usersnames : namec 
specirdex : title 
٣5۵" 71005 : ۳ 
| weight : vectarsl ; 
Cumrerntrame : name 
agregaticn, 
x rai, 
| specialized, 
Draadcasting, 
modify : boolean 5 
agregaticrnmame : elpida s 


«8 8 
E) 


aa 


end 3; (* record κ) 


VAR 


prablemfile : file af casel و‎ 
prablem ,problema : casel 
specfile : file of  casec 
specfilece,specfilel : casec ; 
solution, solutiona : saluticonl ; 
solutionfile : file of selutienl ; 
narn, norma 5 normi 3 

meeudfile : file of normi ; 


we wa 


basicfile : text ; 

axz,a, b,c,al,bl, cl, úiumberx , 

Sl, SZ, 53, a53, p3,ax, dl, ab, 

wW,@,1, j,k, 1, Ff, code, aa, 

line, pasitioan, levels,mall , 

nunafalternatives, xl,vl,cadel, 

MmalzZ, count, numoferiteria, countimes : integer ; 
precerit, sum, integerl, score, rawl : real ; 

array : title ; 

alternatives! ,alternativesx : titlel ; 

extensicen, prnamel, pruser, answer , 

nernrame, answerl, namex, 1dx, 

prablname, methadx, prname, prusers, specname : name 3j 
vectare, vectars, vectar4, 

vectors, vectearé, vecter7 : vectors و‎ 

altmatrix : matrixed ; 

vectori, vectortarn : vectarsl ; 

altvectearx, altvectar, altvecteorl : vectarf ; 

٦ 1667 ٥٣ 

arnswere : ask 3 

calcari, criterial: criterias 2 cular τ 

arrayl : runi ; 
matrixi, result : numz 5 
narmvectarl,exchangel : vectoarg ; 
narmvectars, normvectoare, exchangec : vectarn و‎ 
error : boolean ; 

Stviinglzsgd.setorhngLE JOE p crgbrccdq ٥٦ 

١٠٣٣٣۷‏ 6 ہے۰ جب1 

index, indexe : baonlean ; 


> ٭‎ ٦ 0 7۳ 
€$1I ۰٠01۳۴1617 
{$I PROCED. FAS} 
{$I STEF1. PAS} 
{$I FILES. PAS} 
{$f STEFE. PAS} 
(SI STEPS. pase. 
{$I STEPS—1. PAS} 
5851 STEFŻ-1. FAS} 
{$I STEF3-2. PAS} 
«81 STEF4-1. FAS} 
{$I STEP4—Z2. PAS} 
{$I UTILITES. PAS} 
{$I STEPS. PAS} 
{$I STEFP4. PAS} 


BEGIN (* main program κ) 
back: 


۷ 1٢۳۹9 )لمات‎ ۰ 1,۶,۰ 
textbackgraund € 14 ) 3; 


eu 


= 


3 ہہح ےت تج 

window ( 1,24, BQ, ZS) ; 
textbackground ( white ) ; 
Sirscr 5 

textecalar ( black ) ; 
που κν ) امت‎ ) ; 

write ( 'multiple criteria group dss - main menu ? ) 5 
Ddow 1,1,84,23) ; 

textcolor ( blue ) ; 

textbackground ( 14 ) 3 

Gecaexny ( 5, 206; 
write ( 7 main menu * ) 3 

mecexy { 3,4 ) ; 

write ('1. Multiple criteria group prablem definition’); 
ت8‎ ( 3,6 ) s 

write ( 1 2: 00906 norm definition TOs 

8۲۰ ( 3,8) 3; | 

Peace (9 3. Frioritization of evaludticn criteria ? ) ; 
μου ιν ( 3,10 ) : 

write ( 74. Individual evaiuation of alternatives ? ) ; 
ب۳ بہت‎ ( 5,12) : 


Wieite ( ° Je Direct input af the data ' ) ; 
uEtexyv (2,14) و‎ 
write ( ' 6. Computation of group decision ? ) 3 


3 )35,16( ب رت کہ 

write ('7. Identification of negotiable alternatives ? ) ; 
metexy (5,18 ) 1 

write (? a. He 7659 

gataxy(s, 2a) 5 

write ( : SEKI S. s 

textcolor ( black ) ; 


repeat 
ray ( 3,227) : 
σιτος-ὶ : 
write (7 enter a numbevo s: °? ) ; 


read ( answer ) و‎ 
val ( answer, coumt, code ) 1 
until (( à 4 count) and ( conmt ( 10 ) ard ( code =  )) 3; 


————— i SQ i = _ — 2ھٹ‎ 


[0 
= 


case ٥تا۹‎ aT 

s goto create ; 
ER goto  nenmdef ; 
3: gota salvel s 
4: goto solves ; 
S: goto salves ; 
6: goto  gdssi 5 
7: gato mai ; 
8: nuoto back : 
Ew uoto telos ; 
d 
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(* problem definition κ) 
Create: 
&Stringiz8 :- ' step 1 : problem definition ? ; 
diskstatus و‎ 
createprablem ( prablem ) 3 

(* corect the data of the problem *) 

window ( 1,1,80,17) ; 

textbackground ( blue ) ; 


elrsor TS 
textenlar ( white ) 5 


display ( prablem ) 3 


window (© ἱ ο δα ج٠٣‎ 
textbackgrcund 6 14 ) ; 


clr rosc 


windew (€ 1, Z4, 80,25 ) ; 
textbackgraurd ( white ) 3 
clirscer 3; 

textcalor ( black ) 3 


08۷ ( c 3 

write ("step 1: multiple criteria group problem 
definition ? )3 

9 مت بت‎ το DNE 

write ( ? correct the data af the problem ? ) ; 


window ( 1,18,84,23 ) 
textbackgraund ( 14 ) 
clracr T; 

textealar ) black ) ; 


Ses یف‎ 


carrectdata( problem ) 
cirsern 

window .( 1,1,88,17) ; 
textbackgrcund ( blue ) ; 
"1۳ 7ہ‎ 

textcalar ( white ) ; 
displayi ( problem );j;j 


window ( 1,18,80,-23 
textbackground ( 14 ) 
el-ser 5 

textcolaor ( black ) ; 


` 
we ως 


correctdatal (problem ) 


ae 


o 
fii 


apenfile ( prname ) و‎ 
writeprablemfile ; 
gato back ; 

(* norm definition κ) 
normdef: 


strirq1ë8 := °? step 2Z : normdefinition ’ ; 
diskstatus ; 


narmdefirniticgrn ; 
apernrnornmfile ( rncormname ) 5 
mv rerernmfile 9; 


gata back ; 


(* priority of criteria κ) 
salvel: 

pricrityaferiteria ; 

gæta back ; 

(* evaluation of alternatives *) 
Solvezc: 

compiutealterrnatives ; 


gato back ; 





(* direct input of the data *) 
salves: 


| stringiz8 :- "step 5 : direct input of the weights’; 
diskstatus 


we 


elrser ; 
window ¢ 1,24, 84,25) ; 
| textcolor ( black ) ; 
textbackgrannd ( white ) ; 
x ΙΙ; ΕΟ’. 
clreal ; 
write ( " idertification of the problem ') ; 


0 
ω 


window ( 1 
textbackgr 
1+30۳ ; 


readl و‎ 


, 180وت‎ 7 SZ5) 
mund ( 14 ) 


as A8 


readprablemfile ; 


read ; 
readnarmf 1 
reads ; 


if ( nat e 
begin 
salut iar. 
solution. 
Solution. 
solution. 
Opensaclut 
end ; 


readsaluti 


numefcocite 
ramaferite 
narmvect ar 
۳٣٣ ۰۲۷ ج‎ ے٣‎ 


read4 ; 
writenormf 


court ines 
if narm. Mo 
begin 
if count 
begin 
cunt 
index 
salve 
end 
else 
Degin 
٥1:0 
۷ت9‎ 
write 
Qat IX 
write 
read 


le 3; 


xist (pruser) ) then 


ahp. status :- false ; 
electre.status := false ; 
ahp.rnumaftries := U 3 
electre.numoaftries := À ; 
ionfile ( pruser ) 


anfile > 


ria στ soluticn. Numoferiteria 
ria : salution. Numaferiteria 
1 : salutiaon.Normvectonrni 
= r= solution. Normvectcare 


il 


AB we A8‏ تمہ 


ile ; 


s= solution. Anhp.Numaftries 5 
dify then 


imnes ¢ narm. Medifytimes theri 


imes := countimes + 1 : 
s= true s 
withahp ; 


rs 
vu c. jou 

( "won cant modify تہ‎ outpat 
y at ο τος ۰۶ 

( hit any key to cantirnue ?) 
( kb σαι ὁ s 
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3 


3 


) 


5 


gato back ; 


end ; 
end 
else 
begir 
if cocuntimes - a then 
begin 
countimes :- countimes + 1 ; 
imdex := true ; 
salvewithahp ; 
clrser s 
end 
else 
Degin 
πον» : 
gcotoxy ( 3,9) ; 
write ( you cant modify your output ° ) s; 
Oxy € 25,17 )3 
write ( hit any key ta cantinue 1) ; 
Fead < Kbd,ch > 3j 
gato back ; 
end; 
end ; 


gata back ; 

(x gdss *) 

gdssl: 

5:١1۳ و‎ 1:28 :<* “step 53 : computation of group result 
SETI) <= 3' 7 α 

diskstatus ; 


data : 


reeadprablemfile ; 
if norm. specialized Thern 


begir 

if ( mat exist( specname ) ) then 

begir 
ےلات‎ Σ 
gatoxy l ὃν ) § 
write ( the prablem is nct yet solved ' ) ; 
gateoxyt 2,4 ) 3 
write ( *hit any key to continue * ) | 
read (kbd ,ch) 3 
goto back و‎ 

end 3 


readspecfile ; 


if ((specfilez.Completedall) and 
(specfileZ.electre.Status?)) then 
Degin 
window <1, 1, 60. 2s) 73 
textbackgraund ( blue ) 3 
clrser s 


window (1,24, 80, 25) ; 

textbackgramrd ( white ) ; 

elrser 3 

textcaler ( black ) ; 

ποτ 7 

write ( "step 6 : computation af group deciticn ? ) ; 


gpataxy CES 
write ( "final result (electre) - specialized mode ' ) ; 
window CII ORES 


textbackgreund ( blue ) ; 
ο ήτο یی‎ 
textczlcr ( white ) ; 


for a :- 1 to specfilez.Numcfalterrnatives da 
begin i 

answer := specfilec.Alternativeslal] ; 

delete ( answer, 4, length( answer ) ) و‎ 
titiy ( =ë, a +h) 5 

write ( ariswer:4 ) ; 
end ; 


for a := 1 to specfilez.Numafalternatives da 
begin 
answer := specfilec.Alternativeslal ; 
delete ( answer,^,length( answer) ) ; 
σον CU S - ٭-٭٭‎ ) ۶۹۹ 1٠٦ 
write ( answer:i3 ) 3; 
end τσ 


far a :«Ξ 1 to specfilez.Niumeofalternatives da 
beq i vı 
fer b := 1 tc specfi lee. Numoefalternativeas da 
begin 
gotoxy ( Sete b w SB). a + ο. ٠ 
write (specfilez.Electre.Qutrankingtía,5] ) ; 
end : 
end 3j 
texteclar ( green ) ; 
gotaxy ( S,1a) ; 


write ('** an autrarnkirng relation * is the ?" ) 5; 
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Botoxy ) 5,11 ) 5; 


write (3 ame that satisfies bath concordance ο. و‎ 
πο νυν ) MIZ ) : 

write (" ard discardance requirements. 1); 

απ بب بردت‎ ( S1. ) : 

write ('"** an ےہ‎ indicates that there is ° ); 
qatoxy € 2.14 ) ; 

write (5 πιο autranking relations. ΕΤ 


neotsxw (9.16 ) s 
write ( hit any key tao continue * ) 3 
mead ( kbd,ch ) ; 

end 3j 


if ((specfilez.Completedall ) and (specfileé.Ahp. Status }) 
then 
begir 
altvectearil := specfileée.Ahp.Altvectori ; 


ων (1,1,3U0,-5) 5 
textbackgrcund ( blue ) ; 
el scor 5 

window (li, Z4, SM, i 


Η 


[ 


Dg) یک‎ 


textbackgraund ( white ) ; 

CG SCE; 

memmeciar ( black ) 3; 

τοπ ( 2.1) 1 

write ( step 6 : computation of group decition ' ) : 
πεν. ) 2Z,c) 5 

write ( firal result (ahp) - specialized mode ? ) ; 


5 )23 ,30 ;1 ,1( بتة ہت 

textbackgrournd ( blue ) ; 
ο πει ; 

textcolor ( white ) ; 


πώ νν (Co, o) 3 
mte (U final solution * ) ; 


for al := i taoa problem. Namofalternatives do 
begir 
fexteclar ( white ) ; 
Bete ( ( ποσὶ οὗ ο τν ور‎ 
write ( capy( problem.Hlternatives[all,1.3) ) ; 
νειν. ἱ ο]. λα ا‎ ۶ 
textcolaor ( red ) ; 
write ( altvectoritalil:3:2 ) ; 
end 3 


textbackgrceund ( red ) ; 
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for al := 1 to  problem.Numofalternatives do 
begin 
gatoxy ( (9 
for bi := 1 
begir 
ب مہرب تہ‎ “εφ. .-.υ 5.) 
write ( " n» 
end ; 
end ; 


+ (xal )) یی‎ 1 ۶٦۶ 
te round( altvectariCal] * 1d ) da 


textbackgreund ( blue ) ; 
Επ Επ ο. 
write ( hit arny key to continue 7 ) 5 
read ( kbd ,ch ) ; 
end 
else 
clisscuUu s 
qit TINY E ) 3 
write ( "the problem is rot yet solved ’ } ; 
gotaxy( 4,2 ) 53 


end 
eise 

adss ; 
gato back ; 
(* nai κ) 
(iai: 

(* mat avaiable yet *) 

gata back ; 


‘telas: 


END . (* MAIN PROGRAM κ) 
INCLUDE FILE STEF1 


P'ROCEDURE CRERTEFROELEFI ( var prablem : casel ) 3; 


LABEL 
ات وا‎ 
VAR 
axz : integer ; 
stri,stre : name ; 
codel : integer ; 
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BEGIN 


textmode l c8ð ) ; 
eirscr * 
οσοι ον 1,2) 3 
clearili(problem ) ; 
problem.Levels :- @ ; 
for ον. 1 We 5 do 
problem. SublevelifCclJ:= a 
for m=i to S do 
begir 
ΤΠ ας :— lwbe S do 
problem. SubleveleCec,b] := a ; 


7 


" 
3 


end ; 
textbackgraund ( black ) ; 
textcoler ( white ) ; 


aE l, 1,30, 23) ; 
textbackground ) 14 ) 3 
ος 3 


window ( 1, 24, 80, 2535) 3 
textbackgraund ( white ) و‎ 


Girser ` 

τοσο black ) ; 

[t Xy (2, 1) 2 

write (’step 1 : multiple criteria group prablem 
Geriatr °); 

η ) ;‏ یرت 6ات3 

write ( 'defiriticri àf alternatives * hit q ta stop ° ) 

νι 1, 1,99, 23) 3 

textbackgreaund ¢ 14 ) ; 

Cis ser" u 

gatar ( 2,2 ) ; 

black ) 3;‏ ) ت۲61 ہ۴ 

write ( ' enter the name of the problem : 7) ; 

read ( answer ) ; 

prriamel := answer 3 

deletetanswer,&, length(answer) ) ; 

Drriame i= caomcat (answer ,’.Def’ ) 3; 


orablem. Namel := answer j 


η... ( 1,2); 

El el 

).5.5 8ا ب برت ١ات8‏ 

write (? name of prablem : °, answer ) و‎ 
line := 4 ; 

a = Ὁ = 

bk as‏ "ک٢"‏ کا 
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w := 1 ; 

position s= 1 j} 

c := @ 3 

gataxy (1, line ) ; 


Clearscreen ( line ) ; 


gataxy ( 3,4 ) و‎ 
write ( ? 


ag 2= ۵ ٤+ 


while (( answer O 'q') and 
begin 
gaeteaxy ( 42,( 4 + aS ) ) 
aĵ := að + 1; 
write ( ? PE S ts Ww» s 
Read ( answer ) ; 


answer := stupcase (answer) 
problem. Alternatives Cas] 
end τσ 


prablem.Numafalternatives :- 
for aS f= 1 t= IQ dc 
begin 


Aa MS 


gataxy { 1, 
clreaol ; 


end ; 
windcw ( 
textbackgraund 
CIT SERF 
textcolup ( plack; 
got oxy (2, 1) ; 
write ('step 1 : 
definition ?); 
GELIYE, E JIS 
write ('definitiacn 
5)nd level q?uit' ) 


1 τα θα cmi 
( white ) ; 


CI DN‏ 1۳۲۹86 یہ 
textbackgraund ( 14 ) ;‏ 
textcolor ( black ) ;‏ 


repeat 
gotoxy ( 3, line ) ; 
write ( " enter 
read ( answer ) و‎ 


answer := stupcase (answer) 


line := 4 ; 
delline  ; 


cf criteria κ 


the number 


enter the alternatives DS 


( ac C 1299» 


`a. 


3 
:= answer و‎ 


multiple criteria graup prablem 


1 )st level ë)wd level 


af the level یں مت‎ 


3 


until (answer = 717) or (answer = ’2) ar (answer = 73’) 
while answer (>, "q' da 
begin 


Clearscreen ( line ) 3; 


7 


48 


10 


Γι 
= 


if answer = 117 theri 
begin 
gotoxy (5, line) ; 
clreol ; 


pasiticn :- positionl ; 
Clearscreen ( line ) 3 
textcolar (blue) و‎ 
gotexy(pesitian, line) ; 
textcalar (blue ) 
write {ar 1.7.7 } 
GoOteoxyipositiaon + 
read ( answer ); 
answer := stupcaselanswer) ; 
if ( answer QUON and Cearnswer X?*3* 7j 
and ( answer (>) q’dand (answer <>, 1") then 

begir 

Ai=atis; 

prablem.Levellti a 1 :-7 answer 5 

lure ;:= line + r=; 


7 

٠ 

1 
s 
«2 


5 line ) 3 


E 2s 
qata 10 
end ; 
end ; 
problemn. levels := a ; 
If answer ΞΕ then 
begir 


lire ) ;‏ ,5 ( بپ×ت) تق 
Ch ecl s‏ 
textcolcor 14}:‏ 
pasitien :- positiacnz2 ;‏ 
Clearscreen ( line ) ;‏ 
و ) textcalor ( red‏ 
gatoxy ( pasiticon, line ) ;‏ 
anite μα ο, οτι 3j‏ 
Catay (position + S , line 7};‏ 
و ) read ( answer‏ 
answer i= stupcaselanswer) j‏ 
؟ ,>< if ( answer ( "17 ) and ( answer‏ 
and ( answer (> 1q’) and ( answer ()1 21) then‏ 
begir‏ 
b = b+ 1 ;‏ 
problem. Level? C a,b J := answer ;‏ 
line :- line + 1 ;‏ 
c s= ;‏ 


gūto s s 
erd ; 
erd; 
prablem.Sublevelifaj] := b ; 
if answer = '3' then 


1 


begin 
3 ×ت بت‎ (Ss line وا ڑ۶‎ 
clreal ; 
textcalar ( yellaw ) ; 
pasitizn :=5 pasitimð ; 

26 : clearscreer ( line ) ; 
textemlar ( yellow ) ; 
getaxy ( pesitian, line ) 1 
write (αν . Bg CEE 
Gataxy (position +7 , lire ) ; 
read ( answer ) 3 
answer := stiupcase (answer) ; 


while answer = 737 ασ 

begin 
qatay ( pasiticon +7 , line ) Ἡ 
clrean. 


read ( amswer ) ; 
answer :- stupcaseíarnswer);j; 


eund; 
if ( answer () 127? ) ard ( answer ΤΙ... 
and ( answer <> 7q’) then 
Degin 
خر ت‎ ) OC 
case a af 
1 : preblem.levelsCb,c] :-7 answer ; 
c : preblem.Llevel4{fb,c] := answer ; 
3 : problem.LevelSrb,clÀ := answer ; 
4 : preblem.levelGfb,c] τς arswer ; 
3 : prablem.Level7?[b,c] :- answer 
line :- line + 1 ; 
qato SA 
end 
eund 3 
pr^ablem.Sublevelz[a,bl]À := c ; 
end 9 


window ۳)1 ۰1 0 ٠٦ 
Cl SET 


END ; 


PROCEDURE DISPLAY ( preblem : casel ) ; 
VAR 


b د‎ οσοι κ ου τοις . integer : 


line 3 A و‎ 
: boolean ;j 


change 


η 
ru 


BEGIN 


get axy (3,1) ; 
textcaleor(white ); 


line 


٣‏ تچ 
pell s= Ë ;‏ 
change := false ;‏ 
for as=1 ta prablem. levels Do‏ 
begin‏ 
if ( length(prablem. levelifaJ) ? 1 ) Then‏ 
begir‏ 


textcalar(white) ; 
if ¢ line ? 14 ) then 
begir 
Call ¿= c 
lire := تج‎ 
change :- 
end 3 
J ( € line > 14) and ( change ) ) then 
begir 
Ses coli + e 
line 
end و‎ 
Bavexy( cally tire ) s 
writeln (a, '. ?",Fraoblem.Levelital ); 
line:=line+ 1 ; 


II 
Ú 


far b := 1 te problerm.Sublevelital da 

begir 
textenlar ( red ) و‎ 
if (length (preblem.Lleveléfa, bl ) > 1) then 
begir 


if ( line ? 14 ) theri 
begir 
calli = 
line := 
charge 
end و‎ 
If ( ( line > 14 ) ard ( change ) ) then 
begin 
Ell seek! + (٥١ 
line :-2 Z 3 
erd 5 
یرت 6ت0‎ ۷۱۱۰٢ ες, lime 2 5 
write(a, B." 7, problem. Levelžľa, bl); 
line := line + 1 5 


oli + 3a ; 


8 
3 


l ٢ rO 


true ; 


for c:=1 to problem. Suablevelž[a, 5] da 
begin 
textcalor ( yellow ) ; 


N 
(J 


case a af 
1: begin 
if (length(problem.Level3Lb,cl1)»1) then 


begir 
το ( line >) 15 ) then 
begir 
coli := cali t zan; 
line := 2 3 
change := true ; 
erd ; 
27 ((lire?14) ard (change)) then 
begin 


coli :-'"ceLl cou 
line :- = j} 


end ; 
۰ے تج +11 جح )۸بر ت8‎ ٥٠٦ 
ασιτία ELEME ue pee 


prablem.Level3tb,cl) : 
lire := lire + 1 ; 


erd ; 
erd ; 
c: begin 
if (length(prablerm.Levele4tb.od)59 then 
begir 
if ( line?» 15) then 
begin 
call s= σσ ο ο 
lire := ë ; 
change :- true ; 
end ; 
it ο € line ? 14 ) and ( change ) ) then 
begin 
coli meclli + Gü - 
line :- 3 ; 
end ; 
gqgotaxy C Cu] l += Ον, 
writela,  ص>۷‎ το 
problemn. Leyvyel4Cb, cl) ; 
line := line + 1 ; 
erd ; 
end ; 


3: begin 
απ. “Ἔ 1Εγιαζπί prablem.levels3lb,cl)>1) then 


begir 
if ¢ line >) 15 ) then 
begin 
coli : calli + 30m; 
line := 2 ; 
change := true ; 
end و‎ 


ὦ 


| if ( ( line >) 14 ) and (change)) then 
begin 


1 cli + 6a ; 


Biene ο ο τε lirie) ; 
problem.LevelSib,cl) ; 


| line := line + 1 ; 


end ; 
end 3 
^: begin 
if ( lengthíprablem.Level&GIb.c3) > 1) then 
begin 
lf « line > 15 ) then 
begiri 
Gian apes = Sei ea Sas 
line := = ; 
change := true 5 
end ; 
ΠΤ ( ( line ? 14 ) and ( change ) ) then 
begin 
call s= cen 1 GU, s 
line := Z2 ; 
end : 


GEC C colitr2, lume ) ; 

we Lee Mp Ox 
prablem.Llevel6é[b,c]) ; 

line := line + 1 ; 
end ; 
end 3 

5: begin 
if ( length(prablem.Level7[b, cl)? 1) theri 


begir 
η ( line >` 15 ) then 
| begin 


ç‏ کا 

x chariqe := true ; 
| erd ; 
| if (€ ( line ) 14 ) and ( change ) ) then 
| begin 

coll SEIT ce 

line s= ë ; 

end 3 


gotoxy ( colit*z2,line ) ; 
Write (a, 7°27 obo 2° ., Ge : 

prablem.Level7EDb,cl) ; 
line s= line + 1 ; 


3 


end و‎ 


end 3 
end 2 
end 3 
end ; 
end 3 
end ; 
end; 
END ; 


PROCEDURE DISPLAY ( prablem : casel } ; 


VAR 
line : integer ; 


BEGIN 


mt my y (S = s 
textcalarí(twhite );j; 
write ( 'alternatives : 7’ ) 3; 
for line :- 1 te proeblem.rn'umafalterrnatives Da 
begin 

gatcxy ( 4,line + 3 ) 3 

write (line,’. "', prablem.alternativestlinel ) ; 
end 5; 


END ; 


FROCEDURE CORRECTDATA ( var problem : casei ) ; 
BEGIN 


repeat 
8 بات‎ oco yc cC DI μμ. 
write O do yana want to madify the criteria (y/n) ? 7); 
Repeat 
gotaxy (47, = ) 3 


clrenl ; 
read ( answer ) ; 
answer :- stupcase(arnswer?) ; 


Art il ( ( answer = y1) ar ( answer = r ) ( و‎ 
if answer = 'y?' ther 
begin 


gotoxy(ti,4) 1 

write CO enter the tree level ( e.g., 2. 1.3 ) ἜΣ 0۶۶ 
Gotaxy € 47,4 ) 3 

read (answernrz); 


7€ 


answer? := stupcase (answer); 

CORY £ 1,6- ) ٭‎ 

write ( ؟‎ name of criteria °", answerz ) ; 
gEtaxy (43,6); 
ο το ( 7797) s 
Gotoxy (47,6) ; 
read( answernrl) 
Ww :-l 3 
convert ( answer2,w,dl1) 
al := di; 

w := 33 

convert ( answenrz,w,dl1) 
pr ھی‎ οἱ s 

Ww سا‎ 


3 


`. 


3 


Cn 


convert ( answered, w, di) 
er := dim 


we 


aT (ci = @ ) and (bi » 2) and (ali (> à ) then 
pmroablem.LeveliLail :- stupcase( answerl) 
PT ( al > preblem. levels ) Then 
prablem.Levels :- problem.Levels + 1 ; 
if cl = mñ then 
begir 
problem.Llevel@lail, bil :- stupcase( answerl) ; 
if ( bi ? problem.Sublevelitail1 ) then 
problem. SubleveliCai] := problemn. SubleveliCail+i ; 


end 
else 
begin 
case al af 
des prablem.Levels[bl,cil :- stupcase( answerl); 
2: prablem.Level4Lbi,cil :- stupcase’ arnswerl) ; 
3: prablem.LevelsS5Lbi,cij :- stupcase( answerl): 
4: orablem.Level&GLbi,cil :-» 3 stupcaze( answernvl): 
Je Drablem.Llevel7Cbi,ciljJ τ stupcase’ answerid: 
end 2 


if ¢( cl > proablem.Sublevelz[al,b11 ) then 
prablem.Sublevelztai,bl11 :-problem.Sublevelz2i,0511-41; 


end ; 

3 ) 47,2 ( 003۷ 
: ات16 

gataxy (47,4 ) 3 
πες ; 

gotexy ( 47,6 ) 3 


Gireal ; 

al := @ 3; bl := ñ ; cl :- ñ 
end; 
until answer = y? 3; 


`. 


END ; 
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PROCEDURE CORRECTDAOTOi1 ( var problem : casel ) ; 


BEGIN 
repeat 

η...» 

write (7ασι γσιιι want ta modify the alternatives (ν/τι) 9) 1 

Repeat 
götoxy (52,2 DJ ; 
Cclreacl ; 
read ( answer ) و‎ 
answer :- stupcase(answer) 9; 


πο. | (( answer = !y 1) ar ( answer = r" ) ) 3 
if answer = ’y’ ther 
begir 


gataxytl, 4) و‎ 

write O enter the number af the alterrnativeí(e.g.,3)?") 
πα μμ ο ο oL 

read (arnswernrz);s;$ 

answered i= stupcaselanswere) ; 

gat axy ۲۰5-۶٦ 

write (° rame Gf alternative ὃν arnzwer2 ) 3j 

gataxy (35,6) 
write ( '??) 
Gatoxy (37,6) 
read( arswerl) ; 

val(arnswerz,a,caode) ; 

prablem.alterrnativestal :- Stupcase(arnswerlil) 3 
9 ص۱ 7 مت بات‎ ٣٦ i 
CIEL. 

gmataxy (47,4 ) 3 

و ات12٥‏ 

gataxy ( 47,6 ) ; 

clireol ; 


ws was we 


end s 
until answer = rı ; 
END ; 
~~y 


INCLUDE FICE STERS 


OVERLAY FROCEDURE  NORMDEFINITION ; 
VAR 
xi, yi, limit : integer ; 
comt : real 3 
lasthoaur s: strirngLzzJ] ; 
prablemnamel : name ; 
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BEGIN 


wivridaw ( 


textbackgraund ( 


αλ 5ο s 


wirdaw ( 


textbackgrcund ( white ) 


C ISSC ; 
textcalar 
gotoxy ¢ 
write ( 7 


window ( 


textbackgnround ( 14 ) 


CI BSE 
textcalar 


gotaxy ( 
write ( 
gotaxy ( 
Write (° 


b 


1, 


1, 


( 


=, 


ο ο το - 
14 ) 3 


4. Ol. SS) τ 
; 


black ) ; 
I) 


step 2 : group norm definition ' ) 


1, 


( 


=, 
ria 
Ak 
es 
7 


1, 80, 22) : 


`. 


Black s 
ere 23 
me of the group norm ') و‎ 
5) 5 
3 ) i 
; 


Read ( answer ) 
norm. Currentrname := stupcase(answer) ; 


delete ( 
6 
textcolaor 


ari 


πο 
ο 


( 


swer, 8, length (answer) ) ; 
cacat ( answer , ον ) s 
blue ) ; 


gataxy (2,4 ) 3 


write ( ? 
textcalar 
Quit XY ( 
write ( 
rt ( 
write ( ? 
Count == 
κ} 59 


checkrnumb 


l. 
( 


a 
3 


er 


Identification af group members 


Blacks 
QJ 4 ۱ 
.1 Number af group members ( max 
ور( ٹم‎ 

3 ) : 


yl := 6 ; limit := 4 j 
( answer , x1,yl,limit,caunts ) 


norm. Nunmofusers :- trunc( caunti3) ; 


far a = 
begir 
got oxy 


write ( 
8٦۷ 
write ( 
Gatoxy 


1 


( 


3 


( 


3 


( 


to trune caonnti3) da 
στα ο 


— name af member +. « a) و‎ 
SE GFA ) 3 
LS : 


55,6+a ) ; 


read ( answer ) ; 
norm. UsersnameslCa] := stupcaselanswer) 5 


end ; 


(C SG. a+7 ) 1‏ رہ6 ہہ 


T3 


. 
3 


. 
3 


3 


Μα 


write (71.2 Id of member  ', norm.Usersnames[11] ) ; 
gataxy ( SE, 7+a )3 
write ( 7? 7% ) 3 
Gavexy ( SSZ5S,a+7) ; 
read ( answer ) 3j 
rumm.Usersidstil :- stupcase(answer) ; 


ql ٦ 

textcoler ( blue ) 3 

write ( '2. Group decitieon techniques ^" ) ; 
textcalar ( black ) ; 

gataxy ( J3 14 ) 3 

write ( 'Z.1 Weighted majority rule : ? )7j 
تو‎ ٤ت×‎ ) 3,15) ; 

write ( '—- equal weights (y/rn)' ) 5 
03 ( وج‎ 1) 

write ( °? 3 ) 
Xl 3 SS LT 


identify ( answer ,xi,yl ) 3 


58 — EU 


if answer = 7y’ then 
begin 
for a :- 1 tao narm.Numcefiusens dc 
norm.Weightilal :-2 1 


enc 
else 
begin 
for a στ 1 ta norm.Numafusenrs de 
Degin 
getuxy ) 12. اج گے ت05(‎ ( :; 
write ( - weight fer 7’, norm. UsersnamesCal >) ; 


GIR COE ٣٦٣٦ 
write (7 ccs 
CUTTS s mu ٦ 
xl s= 55 3 yl := ( 15 + a ( ; limit: = +0 
checknumber ( answer , xi, yi, limit, counta ) 
norm. Weight Caj] :- count3 ; 
end ; 
end : 
clsser s 


n 
" 


a 
3 


BöotaKxy ee) ee 
textcolor ( blue ) 3; 
write ( 'z.2 Collective evaluaticn mode ο) 3; 
goto2axy ( 8,4 ) 3 


texteciar ( black ) ; 


write ( °? choose ane af the following modes : 7) ; 
goteoxy ¢ 14,6) ; 
write ( ? (1» each group member will evaluates 


alternatives’); 


au 


HOLT wl 7) 


write ( ? accedir corali criteria. i 
Επι ος ο 10,8) ; 
write ( ? (2) Each group member will evaluate only 


alternatives’); 
poto (0 1,3) 5 
write according ta his exclusive area mf 

expertise.’ ); 

: )8,11( تو3 
write ( : Eriter a runber ? ' ) 3‏ 
Benes += A ;‏ 
nM c1 s yl s= 11 ; limit :=‏ 
checkrnumber ( answer , xl,yl,li‏ 


L 3 


MiG, Galltic. o> 


=! e 
۱ 


5 


if answer = 'i' then 

norm. Specialized := false 
else 
oegin 


marm. specialized := true ; 

a := v ; 

repeat 

ππσοτο  { 68.135} ; 

cüw*eol ; 

write ( ? the name af the problem ? ? ) j 
Read ( answer ) ; 
delete ( answer ,8,1lengthíanswer) ) ; 
prrame i= carcat ( answer ,’.Def’ ) 

Maen. FuDi^mrnamex :- prname ; 

Praplemnamel := answer j 

until exist ( prname ) ; 

readproblemfile ;j 

for a:- 1 to problem.Levels dr 


begin 
noatoxy ( 16,14 * a ) 3 
write a wane mi user for critiria 


7, problem. Llevelifal,’ η 

error := false ; 
repeat 

gotoxy ( 54,14 +a ) ; 

clrecl ; 

read ( answer ) ; 

answer r= stupcase ( answer ) و‎ 

for b s= 1 tea norm. rnumefusers de 


begir 
if answer = norm. usersnames(b] then 
error s= true j 
erd ; 


until error ; 
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Norm.S5pecirndexLal :- answer 3 
end ; 
ends; 
خ6 کات‎ s 


3 رح وت ( 0067 

write ( 72.3 Autematic selectian af techniques af 7) ; 
9۷7و‎ ( eae) 4 

write ( 7 aggregation af preference (y/n)?') ; 

XV ΞΘ;‏ 6تت 

write (7? یہ‎ 


Κο SSS SL 
identify ( answer ,xl,yl ) ; 


. 9. 3 


if answer = 'y?* then 

ram. Agregatican :- trae 
else 
begir 


narm. Agregatizn := false ; 

A i= ا‎ ; 

GOTE CTS 

"write ( ! pl : sum cft ranks (y7 m7 ME 


πον cuz Es 

write (c 

Xl<«:= "SS πο ESSE 
identify ( answer ,xi,yl ) ; 
if answer = ν᾽’ then 

Degir 


A i= Aà + 1 3 

marm. Agregaticrnmamelay] := ° 1? 
end 
else 
begin 

a = a + 1 و‎ 

norm. AgregaticrmameCaj] := °? ۹ی‎ 


e 


^ 


erd 2 
ب ہر ت بات و‎ ) ٤ 
write ('*— r2 : sum of giutranking relations (y/n)* ) 


u m ο C SECT 
WILE ( 79 FF - 
IS Go VI ET 
identify ( answer ,xl,yl ) ; 
if answer = ’y’ then 
Degiri 
a :7 ad ] ; 
۳۰۲۰۲٣۸۰ [8٣٠ح‎ 3 1۳٣٥٢٣۱: ([(ج]‎ :- 72’ 
end 
else 
begir 


a i= a + 1 ; 


(D 
Γι 


norm. Agregaticormnamela] :- ΤΘ} 
end ; 


: )34.7 26 ب8۰۲ 


κα 


write ('—- r2 : additive ranking ΠΗ}. s 


FAL y (22,7); 
Write ¢€ 7? ' ) ; 
X1 :- SS ἱ το os 


s 
identify ( answer ,x1l,yl ) و‎ 
if answer = ’y’ then 
begin 
تچ‎ s= a + 1 ; 
narn. Agregatiarmamelal := 13) 
end 
else 
begin 
a := a + Í ; 
marm. AgregaticonmamnelCal := °7 2" 
ena >; 
Pax yy (9, 8) 
write (*— r4 : multiplicative ranking (AZ / ya رکا‎ 
رہ5‎ 52,89); 
Where ( 7? 7 ) و‎ 
m= SS 3; Yl s= 8.5 
if answer = *'y* then 
begin 
pee acr 1 3; 
naem. Agregaticarmamelal := 74) 
end 
else 
begir 
a s= a + Í; 
norn. Agregat icormamela] := 'e* ; 
end s; 
end 5 
Heme ) 3,39) و‎ 
πιο (*23.4 
gotaxy ( EI 3 
ο ( *?**? ' ) § 
mE το : yl :- 2 ; 
identify ( answer ,xl,yl ) ; 


5 


J 


s. 


af mal (y/n) ? ) 


~D 
ct 
i 
7 
ct 
=. 
η 
g 
0 
D 
+ 
fy 
ct 
LE 
0 
a 


if answer = ’y’ then 
rarm. Nai := true 
else 


norm. Nai := false ; 
Glasser : 
geuuxyi 2,2) و‎ 
textcoalor ( blue ) ; 
write ( '2. Infarmation exchange ου. 
textcolor ( black ) ور‎ 
Γον (3,4) 3 


write ( '3.1 Broadcasting of individual outputs (y/n)' ) 3 
تٌ9‎ ٤ت×ب‎ ) Se, 4) 5 
write ( 323 ’ } : 


X] = 55 J yi ٥٣٥ 
identify ( answer ,x1,yl ) ; 
if answer = ’y’ then 

norn. Broadcasting :Ξ true 
else 
begin 

norm. Broadcasting := false ; 

end 5 
gat axy ( J; ο) 3 
write ( ?'3.Z Fermissicon ta modify individual analyses ' ) ; 
۲ت8‎ ت۶٠‎ SE. 
write ) after group analyses (y/n) * ) 3; 
ην C 532,6); 
WILE (I373 '. 7 
( 


identify answer ,x1l,yl ) ; 
if answer = τι then 

norm. adify := false 
else 
begin 


norm. Madify := true 5 
ων: CI sS 
write ( 3.2.1 How many times (max 14 )? ) ; 
ت8‎ 677۰ (OSS ITS 
write (HEE? Γ' ' 
Caunti :— u ۶ 
checknumber ( answer , x1l,yl,limit,counts ) ; 
narm.Modifytimes s=trunct ceanunts) ; 
if norm. Specialized then 
norm. Medifytimes :Ξ rnarm.Modifytimes * narm. Naumofasers 


end و‎ 

Πο ον ο SUEDE 

write ( °73.3 Time limit to submit individuals results : 7 ) 
πειτε «ΕΞ 

write ( 7Ο. ώς 1 How many days (max 14 ) 7) 3 

gatos C S ٣٦ 

Wr ICtONO 57 UNES 


CRESS aS 

checkrumber ( answer , xl,yi,limit,counti ) 5 
ruarm.lasttime := tranc couant) ; 

9 ت‎ ٥ت‎ +۷ CSI. 

write ( 7? 3. 3a c Heure ) lipa t= q Ua ΡΕ 


πε 
götaxy ( 52,10); 
write κ ΤΡ” 
ιο ιν ( σος 7 ٣ 
read ( lasthour ) ; 


for a := © to norm. Numeafusers da 
norm. Usersids[a] := 7X’? ; 
END ; 
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۲۷۱۷۰۱۰٢٢۳ FILE STEP2-1 


PROCEDURE NORMSELECTION ( VAR X1,Y1 : INTEGER ) ; 


5 


BEGIN 


xl,yi1) ;‏ ( با ہرت 5 کو 
write { ° name of the norm ? ?) 3‏ 
Repeat‏ 
ουν € £3, yl) ;‏ 
1٦۹‏ ۰63 تج 
read ( answer ) ;‏ 
norm. Currentname := stupcase (answer)‏ 
riarmname == camcat ( answer , °%.Gri’ )‏ 
until ( exist ¢ nearmname ) ) 3‏ 


3 


5 


END ; 


PROCEDURE DISPLAOYNORM ; 


VAR 
messagel,messagee : stringl8a] ; 


BEGIN 


Mew ( 1,1,84,25) ; 
textbackgraund ( blue ) 3; 
و کیہ اج‎ 


του απλο ( white ) ; 

readnarmfile ; 

; ےم زرت 

0۷ ( Gc ) 3 

write ( ‘mame cof the group norm : ٭۱۱۲.) .]٣ت۳ ,؟‎ ۰2۳٣ 6 
τον >) 2,35 ) 3 

write ( '1. Identification of group members °? ) 3 
ΞΕ. (C Su) 9 

write ( 71.1 Number af group members : , 
ruar m. Numafiuserns) ; 

For ao r= 1 te norm. Numoefusers dao 


`h 


begin 
gAtaxy { J, 4ta ) 5 
write (* — rame of member #7 , a, ?* s: ', 
riarm.lUsersrnamestal ) 3 
end ; 
gotoxy ( 2,9 ) Z 
write ( '£Z. Group decision techniques ° ) ; 
qataoaxy ( S 1a ( 3 
write ( 'iz.1 Weighted majority rale ? }; 


πώ νυν (13; TSE; 
write ( '—- weights af members : T ODE 


for a :s- 1 to norm.Numafiusers da 
begin 
πα ον (OD IPLA 
write ( E '! ,Narm.UsenrsnamesLial,? Sai 
norm. Weight Ca]:4:2 ); 
end ; 


if norm. Specialized then 
begin 
messagel :- ! Each group member will evaluate nly 
alternatives? ; 
messagec :Ξ ? according to his exclusive area 2f 
expērt ise’; 
end 
else 
oegin 
messagel = each 0۰۲ member will evaluate 
alternatives’ : 
mnessagez :- * according ta all criteria’; 
end 3; 


55.5 6ت8 

write ( '*Z.Z2 Collective evaluation made : 7) 
σσ مر ت‎ ٦ب‎ 

write ( messagel ) ; 

٠۸۱٣٢٣ ٥٣١‏ ۱ت3 

write ( messagez ) ; 


«ΒΒ 


if norm. specialized ther 

begin 
Drrnarme i- ricum. vrucprmreüanmex 3 
readprablemfile 9; 
pgetoxy CEIL 186); Wir lhe Ὁ ο νο το EE 
noatoxyt25,18)3 write ( 'user name? ) ; 
for a := 1 to problem. levels da 


begir 
میمرت نات 8ے‎ ΕΤΕ ΕΟ: 
write ( prablem.levelltal ) ; 
8ت٣ ؤ+ +4 3. ) ہز‎ + eee 
write ( marm.specindextal ) ; 
erd و‎ 
end ; 


Texteolor ( red ) 
ء) بر9 ات 3ے‎ ۶ 
write ( °? hit any key te continue ?" ) 
read ( kbd , ch ) 3; 


. 
3 


... 


s‏ حرج ہہ ات 
textcoalor ( white ) ;‏ 
Rie ay a “Sar =) ane‏ 


ae 


write ( %2.3 Selection af techniques of aggregation of 
preference : Ὁ) ; 
if norm. Agregatian then 
Degir 
ων ( 69,5) ; 
رک‎ ο "bu το v4 7 ) s 





eund 
else 
begin 
qGrtoxy ( 60,323) : 
for a := 1 ta 4 do 
begir 
Case rnorm. Agregaticonnamelal af 
7 Wind Ge ΡΤ ΤΕ 
το WN LPEN FE X s 
ο ον δω (CIPS JS 
I41: write ( r4 ' ) ; 
erd ; 
erd 3 
eu 5 


Bebo ( 9,25) 3 
write ( '2.4 Automatic computation of nai : } 3 
if narn. Nai theri 
write ( 'ves ' ) 
else 
Wise πει’ } 5 
ت3‎ ο φας, 9) ; 
write ( '3. Informaticn exchange 328. 5 
SEE Sg 25,9) s 
write { °? 3.1 Broadcasting of individual cutputs : " ) ; 
if norm. Broadcasting ther 
write ( "yes 7 ) 
else 
ace Ὅ ο Ἱ } 3 
των. 101} 3 
write ( 13.2 Permission to modify individual analysis after 
grap analysis : ° ()۔‎ 1 
if norm. Modify ther 


begin 
writelr ( Yes ' ) 3; 
write ( 7? | you can modify the cutput 7, 
morm. Madifyt imes,” times ” ) ; 
end 
else 
Aue ("na'"* ) 3 
gotak ) 712(7 : 
write ( 73.3 Time limit to submit individual results:’) ; 
gorteak ) 9,137) ; 


write ( "date : ? , naorm.Lasttime ) ; 
Πτι πω ο 14 ) ; 
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write ( 


πεις, ο 


textes iii 


gotoxy í 
write ( 


( 


و سا 


9 


read ( kbd 


END ; 


red ) ; 


ο. 


hit any key toa continue O ) j} 


cmn JS 


INCLUDE FILE STEP; 


FROCEDURE FRIORITYOFCRITERIA ; 


LABEL 


telasx, telasxi,telasxe ; 


VAR 


pruseri, filenamec : name 
Dooclean ; 


سو دیو رت 


PROCEDURE FINALUWEIGHTS ; 


vectca La, bJ 


BEGIN 
for a := 1 
begir 
for b := 
begin 
fara c 
begir 
case 
1: 
4: 
J 
end ; 
end ; 
C i= ۹ 
end ; 
DE κ = 
end و‎ 


3 


to prablem.levels dea 


1 to problem. SubleveliCald απ 


<= 1 to 


a cf 
vectanr3Lb,cl 

vectar4(b, cl 
vectuerstb;cl 

vactorelb, c] 
vectzr7 Lb, cJ 


٢۰. Clg‏ ت ہت بح 6ب 
vector4Lb,cJ] *‏ 
۴٠ت‏ ,۲5 ۰5٣٥ا‏ 9ب 
lbo, cI‏ 2۷۳۳: ٣ات‏ د7٠‏ 
vector CB c Ii‏ 


88 


:= vectoržľa, b] * vectoriľa] ; 
prablem.Sublevelzczta,bl] 


d im 


vectoržľ[a, bJ 
vector la: 0] 
vector Ca on 
vectaonrzLa,ol 
vectarzLa,b1l 


PROCEDURE FINALCRITERIAI 


; 
BEGIN 


mnumartecriteria := 1 ; 
selectcriteria ( problerm,vectari,vectorZz,vectarz, 
vectar4, vectars, vectar6é, vectar7, 
nermvectari,narmvectoré, numaferiteria ); 
mumeferiteria ےی‎ ) numafcriteria ¬ 1 ) ; 


sorti ( nermvecteril , nmarmvectaori , mumaferiteria ) ; 
Finalcriteria (rnarmvectartl, narmvectoré, numaforiteria J} 
salution.Numaferiteria i= rnunmofeoriteria 
solution. Normvectoare 


. 
3 


= rurmvectaonrzc 3 


salut icr. Normyvectori := rzrmvect zr 1 
salution. Username :— riamex 3 
if ( reat rerm. specialized ) Ther 
begin 
if ( nat exist( pruser ) ) then 
begin 
solutien. Ahp. Status := false j; 


solution. Electre. Status := false 
sclution. Ap. Nunmaftries := ñ ; 

saluat icr. Electre. Namoftries := a 
apersclutionfile ( pruser } 


il 


a 
7 


end ; 
writescluticnfile ; 
end ; 
END ; 


BEGIN (* main *) 


ہ٠9‎ 1:228 : “step Stpricgritizatian of evaluat ion 
Criteria”; 
diskstatus ; Š 
&tringiz9 :- '!idertificaticm af the problem methods 
ahp cr direct’ 3 

data ; 
writenarmfile 3; 
reads ; 
readproablemfile ; 
clrscr 3 
if norm. Specialized ther 
تا‎ ٥۴ 

if ( not exist( pruser3 ) ) then 

begir 

errr := false : 
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begin 
specfiled. salved(A] 
specfiles.Finalindexlal : 


false 
= false 


28 


end ; 


specfilez. completed 
specfilecz.Campletedall دږ‎ 
apenspecfile { 


writespec 
end 
else 

error 
readspecfil 
vecteri τς 
vector 
vector3 : 
vector : 
vectins : 
vectarg 
vector? := 


file ; 


true ; 
e 3 

specfilec-. 
specfileé. 
specfilec. 
specfiled. 
specfilec. 
specfilee. 
specfileé. 


False 3; 
false ; 


prusers ) 5 


vectori 
vectarnriz 
vectars 
yvectar4 
vectarns 
Veet aie 
vectar? 


ME RB 808 — 48 Le 


£8 


-4a 


D:-—- ιὰ Ἡ 
repeat 
b= b rum 

until ( namex = naorm.usersnames(CbI ) ; 

specfilec.salved{bj] := true ; 
end ; 
If methaoadx - 'ahp' then 

evaluate (problem. Levell, prablem.levels, vectarl ) 
else 

directi (prablem. Levelli, problemn. Levels, vectori ) ;3 


C lreer s 


1 f ( ( marm.specialized ) And ( errars) ) ther 
begin 

for a := 1 ta prablem. levels Da 

vectarifCald += ( vectarlilal + speecti lec. veetea, tial EE 

end ; 
for mali :=1 ta prablem. Levels απ 
begin 

if norm. Specialized ther 

begir 


1f norm. SpecindexCmali] <? 


gata telasx و‎ 


riame x then 


end 3 
for malî := 1 tea prablem. Sublevelifmalij] dea 
begin 
vectartanLmaliz] :- vecterncz[mali,mala2] ; 
arrayZlmal 2Z] :- prablem.Levelzimall,mal;i3J ; 
end : 


3u 


if methadx = %ahp’ then 
evaluate (arraye, problem. SublevelifCmalil, vectartan) 
else 
| directií(anrray23,prablem.Sublevelitmalil,vectartan ) ; 
| Πα ο στα ; 
far malz .. 1 te preblem. Sublevell[malll d< 
begin 

if norm. Specialized ther 

begin 

if rorm.SpecirndexLimalil <?) ramex then 


gata telasx 3 
end ; 
vectore(Cmalil,mal2] :- vectortantmalzczl ; 
end ; 
male :- uU 3; 
telaosx: 
erd ; 


| η σου 5 


For si := l1 tao prablem.Levels da 
begin 
if marm. Specialized then 


begin 
if rnorm.Specindextsil ( rnamex then 
gata telasxi ; 


end ; 
Tar SZ := ] to preblem. Sublevelifsi] da 
Degin 
for s3 := 1 ta prablem.Sublevelzfsi,sz] da 
begir l 
case 51 af 
i: Deg ly 
array (s3] : oroablem. Levelslse, sai] 
vectartants3] := vectorals2, sa] 5 
end 3 
| c: begin 
arrayed (sad s= problem. Lavel4[se, 5iJ 
vectartan(s3] :=  vectaor4ls2,3323 3 
end 3 
3: begin 
arrayzts3)J := prablem.levelSlCse, sa] 
vectartan(s3] :- vectarslCse,ssl ; 
end و‎ 
4: begin 
arraye(s3] >=  prablem.Level&ftsz,s3l] 
vectartan[s3] :- vectar6ls3, sil ; 
end ; 


3: begin 


37 


array2Ls3l := prablem.lLevel7(Cse, s3J : 
vectartants3J] :=  vectar7Ds2,9s35J ; 
end 5 


3 
s53 := Ú j; 
` if methodx = 'ahp! then 
evaluate(array2,prablem.Sublevelc2lsl,s22J,vecteortarn) 
else 
directi (array, prablem. Sublevelž[s1i, s2], vectortar) ; 
cC lrsSser s 


for s3 := 1 toa problem. Sublevelel(si,sej da 


begir 
if norm. Specialized then 
begin 
if norm. Specindexlsid “¿°> ramex ther 
gata telasx ; 


end 3 
case 51 zaf 
1 : vectors [sz, s3] s= vectortarnrlsSss] ×۲ 
2o: vector4l[s2,531] = vectartan(s3] ; 
ὦ 2 vectarSise.s3] :— vectartan(s3] ; 
4 : vectaorGlsz2,s31] z=  vectortar[ss3l ; 
9 : VvVecter7 Lee, ss) :— | vectaoartan[s3l ; 
end ; 
end 3 
end ; 
s= = Ü ; 
telasxi: 
end 3 


if ( rot norm. Specialized ) then 
begin 
finalweights و‎ 
finalcriterial ; 
end 
else 
begir 
specfilež. vectori 
SsSpecfi lez. vectarz 


— 
4 


specfilec. vectars 


vectari 
vectori 
vect arg 


وف وف وف وع BU‏ وف 826 


specfilee.vectar4 := vectar4 
specfileée.vectaorsS := vectars 
specfilec.vectar6& :- vectar&. 
specfilez.vector7 :- vectar7 


writespecfile ; 
end 4 


ιη 
ru 


if norm. specialized then 
begin 
readspecfile ; 
mali :- @ ; 
Αα οτι το 3 do 
begir 
if specfilez.salvedfal then 
mall := mall + 1 ; 
erd ; 


if mali -*  nerm.rnumofusers ther 
begin 
vectori := specfiled.vecteari و‎ 
vectare specfilezc.vectarz 


وف 


vectors := specfilec.vectaer3 
vector4 :- specfilez.vectar4 
vectcer5 :- specfilezsevectaro5 
vectaorG :- specfilez.vectar& 
vector7 :- specfilez.vectaor7 : 
finalweights ; 

muBlcriterial 4; 

specfilec.ccampleted s= true ; 
specfilezcz.rnaormvectari :- narmvectari 
specfilec.ncermvectoer2 :- narmvectarcz 
for a := 1 to numafcriteria da 


-αᾱ DE was wis 


ως‏ وب 


begir 
for mali :- 1 to prablem. levels απ 
begin 
if  problem.levelilmalil] = nermvectarilCal then 
begin 
specfilezcz.ncarmindexL[al στ rnarm.specirndextmalil ; 
gata telasxe 5 
erid ; 
erd : 
for mali :- 1 to prablem.levels da 
begin 
For mal2 :- 1 tao preblem. subleveli€Malild de 
begir 
if problem. level&C€mali,malej] - rormvectonrital] Then 
begin 
specfilec.rnarmindexCal στ rnorm.specindexlCmalil] ; 
gato telosxz ; 
erd ; 
end و‎ 
end; 


For si := i to prablem. Levels da 

begir 
for sł := 1 teo proablem.Subleveliltsil dz 
begin 


ιη 
ω 


for s3 :- 1 ta problem.Sublevel8[si,s2] do 


begin 
case sl ef 
1: begin 


Tote problem. levels3lCse,s3J = nermvectaori lal 
Then begin 

specfiled. normindex lal s=nearm. specindex (S11; 
gata telasxe ; 


end ; 
end ; 
2: begir 
IF p^cblem.level4[s2,s2] = narmvectorilad 


ther begir 
specfilec. normindex lal s=narm. specindex(Sid; 
gato telasxe 3 


end ; 
end و‎ 
3: begir 
if preblem. levelSts3] = norvmveetcaalJ then 
begin 


specfilec. narmindexlal:=neorm. specindexlSi]; 
gata telasxe 3 
end و‎ 
end 3 
4: begir 
if problem. level6[se,s3] = nearmvectarilad 
then begin 
specfilec.nermindexlCal:= norm. specindexlSid; 
goto ٤ئ1 و ت×‎ 
end 5 
end 5 
3: begir 
if problem. level7[LCsg, s3]srornvectorila] theri 
begin 
specfilec. normindex lal s=narm. specindexlSil; 
moto tel=esx= و‎ 


end ; 

end 3 
end 3 
end 3 
end 5 
end 3; 
telasxeé: 
end : 


specfile&.rnumaferiteria := numcoforiteria 5 
specfileé.numafalternatives := problem. rnuanmsafalternatives; 
specfileč. alternatives := problem. alternatives ; 
writespecfile ; 

end ; 

end 5 

END ; 
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BNEDEDBDESEILE STEP3-1 


OVERLAY PROCEDURE EVALUATE (var array2:titlesvar w 


yar vectartan 
LABEL 


erti,erts ; 


CONST 
count - 3 ; 
VAR 


τε ο c. d$. o. ToO. p3; l; al, bl, 

necs eímumntl,istogr^ram : integer 5 
neal, lamda, Ci ri, Cr, 

scare, answers, integerl % real و‎ 

arrays, vectarbase, exchanges : vectarsl ; 
[Scottie L2] ; 

EE ΕΠΕ; 

landai, vectorž : array [1.. 30] of real ; 
exchange4 : array[i.. z0] af name ; 
Matrixe,result,matrixS : array Ci.. 20, i.. c2] 
answer4 : name ; 


PROCEDURE INFO ; 

BEGIN 
ul TIC (1, 13, 8p ) § 
textbackgranund(14) و‎ 
textelor. red ) ; 
رت ۲)1 تج 2ت‎ 5 


writeln ( "rate : be as accurate as possible --- 


greater than 1 e.g, 2.43 ?) 3 
Writeln ¢ ° a possible scale for inexact is 


writeln ( " 3 = weakly important than , 
more importan than '» ; 
writeln { °? 7 = very strongly mare imp. thar 
absolutely more imp. than’); 
END ; 


BEGIN (* main *) 
πε Cul. 1,0, L2 ) 3 
textbackgraund (blue) 5 
elrscer: 


: integer 3 


vectanvzi );j 


cf real ; 


a = 


any # 


strangly 


window (51.1.80, 12); 
textbackgreaund ( white ) ; 
clrscr و‎ 

window <1, 13, 40322... 


textbackgranund (14)‏ 
٤‏ می ے1۴ ت 


au 


window (i1, 24,80,23 ); 
textbackgroaund(white) ; 
clrscr ; 

textcolor ( black ) ; 
gotoxyt 2,1) 
write ("step 
رت وت و رید سط‎ 


3 
3 $priaritization ef eevaluat toner? Ger 1 EE 


write ( "method : ahp ') τσ 
levelsl t= w 1 
if levelsi <> A ther 
begin 
windaw ( 1, 1, 307 ٠ 
textbackgroaund (blue) و‎ 
elrser: j 


window (31, 1,80, 21); 
textbackgraund ( white ) 
ح‎ 167٥ 


a 
3 


window ) ۹۷۶۷۳ء۰‎ 
textbackgranrnd (14) 
CIF SET ET 


3 


ete w = i then 
vectartanCw] := 1 
if w = 2 then 
begin 
window ( 1,1,S5@,12 ) 
textbackgroaund (blue) ; 
textcalor ( white ) : 
vectorbase :-  vectartan 
levelsl :=w ; 
gatoxy «ΠΗ 
write (" pairwise comparison 7 ) 
gotoaxy ( 10,3 ) ; 
for -al s= 1 بت‎ loveoelsS ike: 
write ( copy( arrayZtall,1,9) , " ΕΤ 
For al := 1 toe levelsi de 
begin 
οσο σον (=ë ,3+al و(‎ 
write (copy( arrayZEL[all1,1,9) ) ; 
end ; 


a 
3 


" 
3 


" 
3 


«ΒΒ 
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window (51, 1, 80,21): 
textbackgraund ( white ) ; 
textcolor( 2 ) ; 

Εσυ i, i) s; 

arite ( ' pricrity vector ° 
far al := 1 t= levelsi da 
begir 


ποιον ) 2 ,3 tal 


) 3 
write (copy( array2Ltall,1,16) ) 


end ; 
Esca t= 17 te leye8Tsi de 
begir 
[il DX (El. S + a 
write ( chr ( 1 
end ; 
fear a := 1 to levelsi da 


) 
3 


wh aG 
< 
A8 


begin 
τν ο νο + a) | 
ο. εἰ Chr € 179.5 ) 3 


end ; 


ο ασ ( 1, 13, 80,23 ) 
textbackgraundí(i24) ; 
EIT SCS 

textcolcr black ) 3 
BED EAD; 


) 3 


ZUM pl IS 'urayebilJ."* move impesrtart than 7 


ο ο ο Ες — uozm) 


د 


Repeat 
ETRY € 7S.u ) 3 
elreal ; 
read ( answer ) ; 
answer εξ stupcase ( answer ) 3; 
until ( ¢ answer = y1) or ¢ answer = r" ) 


if answer = ’y’ ther 
begin 
رت 6ت ت‎ (0.5) s 
write ( haw mary times 15 
important tharı 
εν ( 5 4) os 


write ( '*( see nate below ) 
TUO 5 

pexveelonr ( black 5 
repeat 


C. 5) 8‏ .ہت ۴ ت3 

clreal ; 

read ( answer ) ; 

val ( answer, ariswers, cade 
until ( ( cade - à) and ( 


du 


ο πανε 7 
BAYT Atv tj], 


4 ) : 


) 3 
ariswers >` 4 


e 
3 


more 
D 


3 


3 


) 


a 
3 


vectartantil :- ((10 / (answers + 1)) * arswers)/14 ; 
vectartantz2] := ( 14 / ( answers *t 1) ) 7 18 3 
window €( Il, oly; 

textbackgroaund (blue) 
textcalar ( white ) 
gotuxv ى۶٦‎ . 
write ( amswerg:4:2) j 
gotoexyt TUA ۰ 


LINE I1! 


write ((1 / answer3):4:2 ) ور‎ 
erd 
else 
if answer = "r" ther 
begin 


و (ت ہت) ۷ Deane any‏ 

write ( 'haw many times is ',arrayz[z21," more 
important than array C rme c ΜΙ 

geoteoxy ( 5,4) 3 

write ( '( See nate below ' ) 1 


inaran; 
textealep spiace = 
repeat 
i η... S 
1٦٠21 ; 
read ( answer ) ; 
val ( answer,angswenrij,code ) ; 
until code - M ; 
vectaertan[z] :- ((14 /Carnswers + 1) ) * answers } 1500; 
vectartanCidl :- ( 1à / ¢ answers +1 J) 7 


window ۰۰۰۰۰) ۷۷۳۶ 
textbackgraund(blue) ; 
texteclar ( white ) ; 
it ce ye ee و روہ‎ 


write ((1/ answenr2):4:2) ; 
gataxy ¢ 18,4) ; 
write ( answenrl2:4:2 ) ; 


end ; 
window (31,1, 8a το 
textbackgrournd ( white ) ; 
textcaior ΞΕ: . 
for al :- 1 te levelsli da 
Degir 
tit ny ت2 ) ب‎ poU 
write ( ) vixctortewiLal 1929523 2 ٤۶ 
end 3 


window Cl,1.. 98:5 99 
textbackgronndí(li14) ; 
6ح‎ ۰ 

texteciar ) black ) ; 
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laca] ta do 

begin 
paotoxy € ¢ co = al EMEND 
Write (eGopy( array2L[all,1,3) ) ; 

end ; 


moe αι al to c do 
begin 
gataxy ¢ ( (CS * abo) Du A 
write ( (vectortantall):3:2 ) 
end ; 
textbackground ( green ) ; 
far al := {i to A&A do 
begin 
mevcxv ( ( $9 * al 20,8 ) 
write ( ' 29 
erd و‎ 
E A1 ο δα 2 do 
begin 


Πιν ο ο íi 2 * alt )) ,2 ) 


e 
3 
s 


3 


a 
2 


5 
3 


3 


if (rand (vectzrtarı [all * اا1‎ ) >` 7 ) then 
istagram := 7 
else 
istogram := ) rannd ( vectaortan[all * i94 ) ) 
for bi := i to 1560 +08 da 
Degin 


3 


[jt Xy ( ( ( m * al 2) wA —bi) ) s; 
write ( 7 uds. Md 
end ; 
end ; 


Fextbaekground ( 14 ) ; 
textcalar ( black J 3; 


gat axy (€ uw. Ii š 
write ( '"hit any key to continue * ) 
pead we kbd , cho 3 

end ; 


a 
3 


ΙΤ w?) 2 then 

Degin 
fur a 1 ta 5 do 

isti LAS, AS! t= T +š 

πεί (wie 1, SW, ت1‎ Aes; 
textbackgraund (blue) 5 
textcalar ( white ) 3 
vectorbase :- vectartan ; 
levelsi :- w ; 
0 ۷٣۶ ( I3 1) 3 
write (7 pairwise comparison *') ; 
Bispoocv ) 14,5 } 


3 


fr ai :—2 1 tm levels! dea 

write ( capy arrayelatj,1,5) , ° D 
for al := 1 to levelsi da 
ت5‎ ۴ 


ποιοι, (Ἐπ. 
write (capy( arrayelaligi, a) 2, 
end ; 


window (S1,1, 84, ٦ 
textbackgreaund ( white ) ; 
textcolar( @ ) ; 

0۷ CI 1) 5 


write ( Ὁ} priority vector ° ) ; 
for al := 1 ta levelsl do 
begin 


ποπ, ١١٢ ػ‎ ٣٥ 
write (Copy ز ل 1 263 بے<حتے‎ | 
end و‎ 
Tor a :- 1 t2 levelst απ 
begin 
ب مت بات ق8‎ Col S TaD SS 
write nM. chrn ) 1792-9» 9 31 
end 5 


for a := 1 to levelsi dc 
begir 


lV SG TSA 
write C-oohr 0795 7: 
end ; 
1210۲ 


textcolor A ) ; 
far a :- 1 ta ( levelsi — 1 ) da 
begin 
criterial := arrayelal ; 
for b t= 1 t= ( levelsil ~ a ) d 
begin 
Criteniae«: —Barrayetatrb] 3 
repeat 
8 τ. Επ. 
write (is ù% criterial, mole iBT Ca ehar 7 
criteria ,' 0420) ο ο... 
(Sc Dia» RONDE Es 
clpedolts 
read ( answer ) ; 
answer := stupcase ( answer ) ; 
clrecal ; 
۳ا‎ 11 ( (answer = y7) ar ( answer = yn? ) ) 
if answer = ?y' then 
begir 


wae 


1 2 


Estoy. Cas Sa). 
write ( haw many times is "'",criterial:5," mere 
important than 7. criteriaE:S , °); 
goatoxy ( 1,4) ; 
write ( : ( See note below ) ? ) 3 
repeat 
Gotaxy( 77 ,3 ) 
clrecal ; 
read ( answer ) و‎ 
val ( answer , answerj , code ) ; 
until (( code - à ) and ( answer2 >)  ) ) ; 
matrixefCa,atb] := answers ; 
mMmatrixclatb, al := ( 1 / answers ) ; 
matrixcetla, al ; 


wa 


window ( 1,1,530,12 ) ; 

textbackgraund (blue) ; 

textcolor ( white ) ; 

ت٦۷‎ τος αι τα Ορ ΠΠ. 

write ( answer3:4:2) =; 

gotaxy( Z + (a * 8 ) Cs ο ασ ο ) 
) 3 


ω 
+ 
fy 


4 
write ((1 /7 answers) :4:2 
end ; 
if answer = "pn" then 
begin 
εν ( 1,22 J; 


write ( 7? how many times is ’,criteriac,’ more 
important enai « Ciriterialsa jJ); 
gataxy C 1,4) 3 
write ( ? ( See note below )* ) و‎ 
repeat 
mnobtew 79 43 ) 3 
clrecl ; 
read ( answer ) ; 
val ( answer , answers , code ) وو‎ 
until (( code —- A ) and ( answers > @) ) و‎ 
matrixZLa,atbl :-(1/ answer3) 5 
۲1٢٢٢ [1× 3ھ بطا+3] ت2ت‎ ariswers 3 
matrixcla, al s= ¿1 5 


Envie ) 1,1,50,12 ) ; 
textbackgraund (blue) 5 
textcalar ( white ) 3 
"ειν. ( (GFE +۲) (a +b ) κ 
write ((1/ answers) :4:2) و‎ 


gótaxy( 2 + (a * 83 >) ,( (Pa Eb). 7". 
write ( answeri3:4:2 ) و‎ 


end : 


wlyidew (i, 13,80,23 ); 


1141 


textbackgrnroeund(14) ; 


textcalar ( 


eh. Lene 
clreaol ; 
αστειο 2 
clreocl ; 
gataxy (1,4 
Clreal ; 
end; 
erd و‎ 


matrixcClevelsl, 
erti: 


matrix 
3 


black ) ; 
) 3 
) 3 
) 3 


levelsilil := 1 ; 


= matrix? و‎ 


matrix2elks, hod 


for a = 1 ta count απ 
begir 
ت۴‎ b3 :— 1 tao levelsl da 
begir 
for c3 := 1 ta levelsi do 
arraySLc3sjre i= matrix ros as3lm 
for HS := 1 te levelsl da 
begir 
score = @ 3; 
fon k3 :- 1 to levelsl da 
begir 
integerl1 :- arraySL[k3l κ 
score r= score + integerl ; 
end ; 
result [b3,h31 :-7 score ; 
end ; 
end 3; 
μα σι κ στ result ; 
end و‎ 


result :- matrixc 


3 


for p3 :- 1 ta levelsil ασ 
begir 
row = ۵ا‎ ; 
for f3 := 1 to levelsi do 
row 2= pow + resulttp3,f3l 
vectarbaseľ[p3] := raw 5 
erd ; 
rawi := @ ; 
for p3 := 1 to levelsi ασ 
rawi := rawi * vectarbasetp3J 


f pš := 1 to 
vectarbase Cpa] 
Window 


levelsi doc 
<= vectonrbasetp3l / 
(el, 1, 68, Z1) ; 


Lae 


a 
7 


rawi ; 


1 


textbackground ( white ) ; 
far ali := 1 to levelsi da 
begin 

νεος AIFS) ; 

write ( vectarbasetalil:Z2:3 ) 
end 3; 


ns 


wlridew ( 1, 13,80,24 ) ; 
textbackground(14) ; 


integeri :-2 mñ ; 
far al:= 1 t= levels1l απ 


begin 
scare i= @ و‎ 
for Di :— 1١ to levels1l do 
begin 


muLeneni :- matrixstai,D5D1] * vecterbasel bil s 
scare :- score -* integerl و‎ 


ard s 
lamdaitail :-» score ; 
end و‎ 
imtegeri := ο 5 
Far ai := f to  leveisi do 
begir 
vectarefalijJ := lamdaifCaild / vecterbaselalil ; 
integeri :- integeri + vectarelall ; 
end ; 
lamda := ) integerl / levelsi ) ; 
if levelsi = 1 then 


levelsi :=2 j 


Ci := ((lamda - levelsi) / (levelsi — 1 )) ; 
case levelsi iur 
1 ri :- Ae UA 1۵یا ۵ا‎ 0۵1۵ 1 ; 
τς Ri :- !ھا ھا ھا ھا ھا ھا ھا ۔ ۵ا‎ 1 É 
ا‎ οἱ τπτ qw. 250 : 
4: Ri := 0.320 ; 
= š mips = d. 12. ; 
6: Ri :—- 1.24 i 
Mor οι πιω. ο  ᾗἩ 
84 Ri := 1.41 : 
EF Ri 1.45 3 
14: Ri = 1.49 j 
Tadas RUNE 1.51 : 
12s Ri := 1.48 ; 
ο Ri :—-—. 256 3 
14: ου ως : 
Pas Ri :- 1.59 3 
erd ; 


co $= αἱ {πα 


window (1; 379890, 22m5 
textbackgroundíili4) ; 
clrscr i 

vectartar := vectorbase ; 


repeat 
counti := A ; : 
for a := 1 to ( levelsl — 1 ) da 
begin 
if vectarbase[alj ( vectorbasel[a-tl]l ther 
begin 


excharnge3slal] := vecterbaselal ; 
vectonrbase[al] :Ξ vectaorbasela-cil 
vectorbaselatil] := exchargeslal ; 
exchange4lal] := arrayz[al ; 
arraye Lal := arrayelatil ; 
arrayoflatij] := exchange4lal ; 
courtil S3 emnt ۶۶١٥٠ 
end ; 
end; 
until counti = 8 ; 


ھت 


far ai :- 1 ta levelsil da 
begir 


8٦ ( Š * ٣٠۷۷۹۷۰۹۹۷٥ 
write (copy arraya "ου; 
end ; 
far ali :- 1 to levelsl do 
begin | 
gotaxy ( ( ( S * — alo ocv 


write (vectcarbaselall:3:2) ; 
end ; 


textbackgnraund ( green ) ; 
for αἱ :- 1 taàa.levelsl da 


begir 
Παιν ον ΙΙ ΞΕ.’ dm ; 
write ( " n ٠ 

end ; 


for ai :- 1 teo  prablem.Levels doa 
Degin 
gotoxy. € (3 * Cox alm» O 
irf ( round ( vectortantall * 128 5) } 7 ) then 
21 83۲ := 7 
else 
istagram :- ( round ( vectortanfCal] * 14 ) 


124 


τ. ει : 1 to  istogram da 
begin 
RORY ( (€ 5 
write ° 2) 
end ; 
end 2 


al )) ,(9 -b1) ) : 


A8 * 


textbackgreund ¢ 14 ) ; 
textcolor ( blue ) ; 
‘gotexy ( 36,1) ; 


write ( '** lamda max = 7, lamda:4:2 ) 3 
πιο ο ου ); 

write ς ? consistency index = °’, ci:4:2 ) ; 
O 0.599 3) 3 

write ( 7 randomized index = گا‎ ۲ πι ο ٦ 
و )356,4( ہ50‎ 

۰66 € 7 Cornsistency ratio = ὃς crag : 


gat axy So. e) 3 
Write ('** there is some statistical') ; 
gataxyt EG, 7) 5 


write ( ? incemsistency in your evaluatiaon.?);7 
Geotaxy (36,8) ; 

write (° (study highlighted values fer ?) ; 
notexytso, 2) 5 

arite € pmrabable inconsistent evaluatiacorn)*') ; 


bexten vere ( blach* )*; 


far p3 := 1 to leveisl da 
begin 
far f3 := 1 toa levelsi da 
begin 
reste Cos, fai := A 
matrix2[p3, f3] سج‎ 
erd 
end Ἡ 


"Bé We 


Πο ο 2,11); 
Pextecemar™ blue ) و‎ 
write(’da you want tea modify the evaluation af the 
eni teria (y7r)? ') و‎ 
Textcalar ( black); 
repeat 
ΠΕ ,رثات‎ 11 ) ; 
c ee lw, 
read ( answer ) ; 
answer στ stupcase ( answer ) 5 
"unte ( ( answer = y1) ar ( answer = 'r? ) ) 
window (1,13, 88,23 ); 
textbackgreaund(14) ; 


if answer = ’y’ then 
begin 

elieser = 

error i= false = 


repeat 
gataxy © ae 
elreatl: 


write ( ’name of the first criteria 
Read ( answer ) 3 
answer := copy (answer, 1,4) 


5 
stupcase ( answer ) ; 


answer = 
for al:=] t2 levelsi1 da 
Degir 
answer4 := capy( arrayclaljJ,1,4) ; 
if ¢ answer4 = answer ) then 
errar :- true; 
erid s 
ιστοί ΕΤ 
a i= لا‎ 5 
repeat 


a := a ti و‎ 
answer4 := capy arraya], 1,4) 


mutil ( | answer - answer) 3j 
Criterial := arrayzL[al ; 
eres: 
error := false ; 
repeat 
cient ay yo Ὁ ο]... 
٥1٣291 ; 


write ( "name of the second criteria 
Read ( ariswer ) ; 


amswer :- stupcase ( answer ) ور‎ 


answer := cupylanswer, 1,4) 5 

for bl := 1 ta levelsil do 

begin 
answer4 := capy( arrayelblj,1i,4) ; 
if ( answer = answer ) then 


error := true; 
end; 


πρι Error TT 

answemr4 := copy ἱἵ criterial,1, 4) 

Ts ( answer = answer ) then 
gote ert. و‎ 


3 


O a= uos 
repeat 
O rl 
answer : 


—- copy( array2Lb1,1,4) 
Htc ( arnswer4 = amswer ) : 


3 
Criteria2 :- arrayzibl ; 


1 26 


۶۰٥ت‎ { 1,1,50,12 ) : 
text background (blue); 
matrix := matrix ; 
Epesdsreolo^ (red + 16 ) ; 

00۷ ہب‎ TS ο ο EOE «WE ہے‎ a g 
write ( matrixēľ[a, b]:4:2 ) ; 


textcolor ( black ) 
window (1,13, 330@, 23 ) 
textbackgraundt(14) ; 
eleser : 


ASG Aa 


repeat 
Gewemy{ 1,2 ) : 
write Ὁ 1,2. 70۰1 1+ 07 


Criteriac ,’ (y/n) 
Emtoxy 75,2 ) ; 

elven) ; 

read ( answer ) 3; : 
answer i= stupcase ( answer ) ; 


nore 


impartant than 


) 


9 


) 


) 


) 


Siem) 5 
γι 1 1 ( ( answer = 7y?) ar ( answen = Οτι 
if answer = ’y’ then 
begin 
geooxv CC 1,35 7; 
write ( : how many times 1S ’,criterial,’ 
προ στον than '",criteriaz , . 7 7); 
gat xy ( 1,4) 3; 
write ( " ( See note below ' ) 3; 
info ; 
repeat 
πο ον 7J g Or) : 
clreol ; 
read ( answer ) ; 
val ( answer , answers , code ) ; 
untill ( ( code à ) and ¢ answers > 2 
matrixzLa,bl :- answers 9 
Macrixelb, al := ( 1 / answers ) ; 
matrixcla, al := Í ; 


L r cs ( 1l1.1;.,5Sm 12 ) ; 
textbackgraund (blue) ; 
textcalar ( white ) ; 
Qat ۷ ( (8 EC Dow 8 )) , š + a 
write ( answerg:4:2) ; 
Geter τ (84 * 8 ) , 
write ((1 / answers) :4: 
end ; 
window (1, 13,80,23 ); 
textbackgrannd(14) ; 
textcalor ( black ) ; 


Γι ~ 
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) 


3+ b ) ) 
) 3 


a 
3 


3 


s 
3 


) 


)0 e 


3 


3 


if answer = 'n' then 
begin 
Satay πο... 
write ( ? how many times is ’,criteriae, 
7 more impertant than 73 ETILE ae 
gotoxy ( 1,4); 
write ( ? ( See note below ° ) 
infó 5 
repeat 
πο νο κν 7/330; 
ا1۱66‎ ; 
read ( answer ) 5 
val ( answer , answer3 , code ) ; 


a 


until ( ( cade = ú ) ard ( answers (> ú ) ) : 
matmrixaGta,bl :-(1/ answer3) ; 

matmrixztb,al :- answers 3 

matrixczta,al کک‎ ἆπς 


widow ( 1,1.0. Ευ; 

textbackgraund (blue); 

06 ۷ ἵ ωρα ο Duo ans + a s 
write ((1/ ariswer3)i:4:2) ; 

gaotoxvi Z + (a * 8 ) "νι: 
write ( answen3i:4iZ2 ) 

end 5 

window CIS uic Τη 
textbackgraund(14) ; 

58502۶۰۸1۰۰۰ 

ا٠1‏ 
06۷۷ 
ا ٠١ا‏ 


wa لہ‎ 


lg SIM 


wc ~ s.s 


goto erti 


end 3 
end; 


wiyidowtl,1,88,25) 
ο ο ToS 
end 5 
END ; 


OVERLAY PROCEDURE DIRECT1 (var array®:titlejvar w:iinteger و‎ 
var  vectaortan :  vectorsi } و‎ 


LABEL 
erti,erts ; 
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CONST 
Gaunt = 3 3 
VAR 


2259165. 0d», hi4 KS, f3, ps, 1, al, bl, 
levelsi,i,counti,istogn^am : integer 
row, rowd, lamda, ci,ri,cr, 
score,answers, integerl : real ; 
arrays, vectorbase, exchanges : vectors! ; 
poing L9] ; 

Gives Ohar: 

lamdal,vectore2 : array [1..250] of real ; 
exchange : arrayL[1..z240] af mame ; 

esult,matmr^ixs : array D[1..2979,1.. z241‏ ت٠۰٣‏ ج01 
answer : name ;‏ 


4 


FROCEDURE INFO ; 
BEGIN 


window (1, 13,80,23 ); 
textbackgranund(14) ; 
ΕΙ ΕΙ us 

Text Color. red ahy» 
geoteoxytl,10) ; 


af real ; 


writeln ( ''"note : be as accurate as possible 


[u 


—— any 1t between à and 174 e.qg, 
Writeln ( °? a possible scale for inexact i 


I m 


writeln ( ?* 3 - weakly important than , 3 
importan than ') ; 
writeln ( 1 7 = very strongly more imp. thar 


9 = absolutely more imp. than’); 


END ; 


BEGIN (* maim *) 


νιν 1, 1, 50,12 ) ; 
textbackground blue); 
clrscer; 


ο απο ۸5 1, 1. 80, 0ت1‎ 
textbackground ( white ) ; 


clrseres 
window (1,14, 84,25 ); 
textbackyground(14) و‎ 
elrser ; 


1 29 


Λ΄: 
9 ) : 
strongly more 


window (i; 24,830, 228i; 
textbackgraund (white) ; 
clrser ; 
textcolar ( black ) ; 
qat (C ue a; 
write ( "step کے‎ : prionriticatiorn xf Ενειπεξιπη.επιτετι: E 
ης, ΤΕ, ۶ 
write ( 'direct input of criteria weights ') ; 
levels! :=w ; 
if levelsi1 (> ὦ then 
begiri 
windaw ( tsm Ils sS 
textbackgrournd {bl ue) ; 
clrscr: 


Μπιν (31, 1,360,211); 
textbackgraund ( white ) ; 
circnm 


window (1:1. 99 EG Ss 
cvextbackgoraund (14) 
elrser 5 


ا تمہ 


if w= 1 ther 
vectortar Cw] 
else 
begir 
for ade let cl 
matrixēľa3, a3] := Í ; 
uiwmdcwoiccls ll. use) - 
textbackgranund (blue) ; 
textcolor { white ) ; 


il 
I 


vectorbase :-  vectaortan ; 
levels! i= w ; 

856 Ic mE 

windowitsl lu τν 
textbackgnrourd ( white ) ; 
textcalear( à) ور‎ 

019 ۷٦٠٦ 


write ) °) priority vegptuop 11 
For al := 1 ta levelsi da 
begin 


Ὁ Ἐ ο hal‏ ب برت بات ق 
write (copy( array2Ball;1; 18 p I‏ 
erg ;‏ 
for a 1 to levelsi da‏ 
begir‏ 
Πα δω ασ τα ;‏ 
write € enr (Give) Ja:‏ 
end 5‏ 


110 


Far a :— 1 t= levelsl dea 
begin 

ون ہے + (E7,‏ ب 5080ات 

"pte chop Oecum) - 
erng™ 5 


e tl. 
Puto —; 
textcalar 6( à) ; 
ο μον ( 2,2) 3; 
write ( 'enter the weights cof the criteria : ’ 
For a :- 1 to levelsi1 dea 
begin 
ο σπιν € 2. eta ) s 
write ( arrayelal , °’ = ٍيٍ (أ؟‎ 
end; 


far a :—- 1 to levelsil da 
begin I 
repeat 
patoxy ( length larrayelal)+5S , @ta) ; 
C αι § 
read ( answer ) ; 
val ( answer , answers , code ) ; 
until (( code - à ) and ( answers >) -i ) and 
(answers (0 11) ) 3 
vectarbaselal := answers ; 
end 2 


roawl :- ۵ 
۲۸ ک8‎ ٢ح‎ to levelsl απ 

raw] = raw] * vectorbase[p3l ; 
for pi :— 1 to levels! doa 

vectorbase(p3l :- vectcorbaselp3l] / raowl ; 


l — = 


window (S1,1,8m0,=1); 
textbackgranund ( white ) ; 
for al :2 1 to levelsl απ 
begin 

ΕΠΕ Εν (ας alts) $ 

write ( vecterbase[all:35:3 ) ; 
end 3 


och (1, 13,80, Z3 ); 
textbackgrannd(14) ; 
elmecr ; 

vectortan :- vectorbase ; 
repeat 

Cccunti :- "0 ; 


for a τ 1 ta ( levelsl - 1 ) da 


beq i vı 
if vectcarbaselal ( vectorbaseL[atl1] then 
begin 
exchangeslCal] := vecterbaselal و‎ 
vectonrbase[al :- vectorbase[atll ; 
vectonrbaseL[ati] := exchangeslal ; 
exchange4lal] := arrayélal ; 
arrayz[al :- arrayztatll و‎ 
array2L[atil :- excharge4[al ; 
counti :- countl + 1 3 
end 3 
end 5 
until icannmtl = @ 3 


for ai :—- 1 teo levelsli1 ασ 
begin 
ratay ( ( تہ‎ ο seb). 39 .':3 
TILE κ οσο ώ. ρα Ετσι αν τς ου > 3 
end 3 ' 


far al :- 1 to levelsl da 
begin 
matexy κ ( 9 * al 
write (vectonrbaseL[all: 
end 3 


textbackgreanund ( green ) وو‎ 
for al :- 1 to levelsl1 do 


begin 
Beit O S a9 ("٦ 
write ( ' RLW S 

end 3 


far al := 1 ta 3 levelsl da 
begir 
potaoxy { 
for Dla: 
begir 
götoxy (€ ( ( 9 
write ( ? 2) 
end 3 
end 3 


( 5 * al )) ,9): 


(5 + 
1 E ronnd ( vectarbase[all * ia ) da 


al )) ,(9 -b1) ) 3 


- ox 


STEEL, 
textbackgraund ( 14 ) ; 
textcalar ( blue ) ; 
write da you want te modify the evaluation af 
the criteria (y/n) ? *) ; 
Textcalar ( black); 
repeat 
note ο πο. 


Ji. 


Clreal s; 
read ( answer ) ; 
answer := stupease ( answer ) ; 
0:31 ( (answer = *y?*) ar ( answer = ΣΥ )) j; 
ΠΗ ώς ος τν δα 23 ο 5 
cextbackgnrcundtli4) ; 
if answer = ’y’ ther 
be gq i Yı 
clPrecms 
goto ertl ; 


end 5 
end 5 
end 3 
END ; 


fee oe FILE STEP 32-2 


CEDURE SELECTCRITERIA (var problem : casel ; 

var vectori : vectcirs! ; 
var vectare, vectors, 

vectar4, vectors, 

vectaoré, vecter7 :vectaonrs ; 
var  rwmarmvectari : vectarg ; 
var rnoarmvectore 3: vectarn ; 
Var mnumoferiteria : integer ) 


VAR 
5.6 ج,‎ : integer 5 
rianmvectartJg : vectaorg و‎ 
narmvect are s vectarn 3 
numazfcritencial : integer ; 
BEGIN 
fer a :— T to 125"da 
Degin 
normvectorelayd := ú ; 
nemuwectortLal := ' °? ; 
end ; 


f := viunmafcriteria ; 
far a :—- 1 to problem. Levels da 


begir ۱ 
if  prablem.SubleveliL[al - A then 
begin 


rormvectaociLfl :- problem.LevelilLlal ; 
ruarmvectionzifl1 :- vectaoarital; 
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ee 


Tuc 
end 
else 
begir 
for De 
beg iri 


if problemn. Sublevelž[a, bł 


begir 


58۳۰ 5 1611. 5۱۲851 6 ب‎ ٦ 


— 
— 


à then 


ronrmvectoncitfl] :- problem.Levelzta,bl] ; 
J := v 


noanrmvectarectf 


f στ 
end 
else 
begir 


f a me 
begin 
case 


end; 


end; 
erd; 
ends 
end; 
end; 
mumaferiteria 


END 3 


Γι: 


LJ 


Cn 


— 
— 


ΙΙ. > 


1 ta 
a ids 

begin 
ricomvectanitf 
ب۳۴11‎ 6) 0 ot. 
Gg ۴۶ 
end ; 
begin 
mnermvectari Cf) 
mearmvectar2c fy 
f SEES s 
end ; 
begin 


rurmvectaornritf]j 
۳٣۰۲٠٠۷ ات ت نے ج‎ J 
f i f + 1 34 
end ; 

begin 
rianmvectarnritrf. 
۳۲۰۱۱۰۷ 6 ح٤‎ ت٠ت‎ ]( 
f $= cb out 
end 5 

begir 
riarmvectari CFI 
rirmvectaornrztf. 
TFS E IT 
erd ; 


; 


il 


ect ore fa, bia 


preoblem.Sublevelcz[a,bl da 


probplem.LeveliLb, 
wector o r bue ٤ 


prablem.Level^4Lb, 
vectar4[b,cl ; 


proablem.LevelzLb, 
۷6666 i 


prablem.LevelGLb, 
vectors Cb, cai 


przblerm. Level 7Lb, 
VEE ar δε] s 


e 


An 


AP 


PROCEDURE FINALCRITERIA ( var normvectarl 
Var normvectare 
yar rniumaforiteria 


VAR 


a,b,number,startpoint : integer ; 
Sum, precent : real ; 

answer : char ; 
numoaferiterial : integer 
normvectars vectonrg ; 


۳۶٣۰۲٣۷ 20-6 :× vectarn ; 


PROCEDURE WRITECRITERIA ; 
VAR 


lirex. raw 
BEGIN 

Gomes << να δα τὸ 5; 

textbackgraund (£ blue ) ; 

textcolor ( white ) ; 

απ οὐ و‎ 

cov ( Ser) ;‏ دت 


integer 3 


write ( 'the final criteria ( 7, rnumafeoriteria 


and their weights are : : 
BACAK 1.1.4} : 
Sum 1= A ; 


ria fcecriterial := rumczfcriterla : 
۳۱۲۰۲۱۰۷ 2 ٥ ت٥ت‎ : ncormvectaonl ; 
ج ۰۱1۷ بت۳‎ >٤ ٤ :— normvectarc 5 


3 

for a := 1 to rvyumeferiteria dae 
Sum :1= Sum + narmvecterelCal ; 

fara == 1 te rilinaFeriteria da 


begin 
riavcmvectencz[al στ normvectorct[al] / 
end ; 
Pines 2= 3 ;§ σαι 1 ë و‎ 
for a :— 1 to numeferiteria da 
begin 
jf ( lirex >` 13 ) then 
begin 
lirıex 3= 3 3 
UCDOWX := 45 j 
erd 3 


gotexy rawx, linex ) ; 


write (a,'. ,NermvecterifCal, nermvectorelal:4:2 


linex := linex + 1 ; 
end ; 
END ; 
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) 


Shin 


a 
3 


= 
3 


vectanrg 
Vect ory 
integer 


3 


3 


) 


) 


a 
3 


aa we 


) 


BEGIN (* main *) 
wiridow (I.1,8U, Ss 
textbackgraund ( blue ) ; 
closes 


window ) 1, 16, 380,2 
textbackgraund €( 1 
۱186۳ و‎ 


window ( 1,24,80,25 ) ; 

textbackgraund ( white ) ; 

ss‏ ٹھچ اس 

textcalor ( black ) s 

۱٣٢‏ 1 ً برت ی٥ات‏ و9 

write ("step 3 :prioritizaticon of evaluation criteria ') ور‎ 
ہرت بات و‎ (ΕΞ, 

write ( determine the number af the criteria ? ) ; 


starctpoint ru viure 
writecriteria ; 


wirdow ( 1,16,00 m. 
textbackgreund ( 1⁄4 ) ; 
ΕΒΕ; 
textcolor ( black ) ; 
Qty CEI 
write (do you want ta reduce the riunber af the 
criteria (7m)? - 
Repeat 
αμ, ο - 
6ج‎ ٦ 
read ( answer ) و‎ 
answer στ stupcase ( answer ) ; 


ب۳٣1‎ ( ( answer -'y?') ar^ ( answer = yn”) ) 3 
repeat 

if answer = ’y’ then 

begin 


gatoaxy C č; 2) m; 
6ج‎ ٦ : 
write ( yaua have two methods : ? ) 3 
gatoxy ( 4,4); 
write ( ? 1. Define the number af the 
criteria that you want tao use '2)7j 

ο οκ α ο) ο 
write ( ? cC. Define the sum ( Z ) that اتب‎ wish " ) 5 
0063 y ( or. ) 3 
write  ('methad that ycu wish (1 or 2) ? ? ) 
Repeat 

gataxy( SW, 7); 

clrecl ; 


m 


15 


read ( answer ) ; 


until ( ( answer = 717) ar ( answer = 727 ) ) ; 
1f answer = '"1" then 
oegin 


It EE ο ο] و‎ 
write ("the number af the criteria that you wish 
ο ο πε Εις , ° ) @ ~ J a 
Repeat 
πο ο CODE DY 3 
Clremal 3; 
read ( rumber ) ; 
util ( number (2 startpaint و(‎ 
rumoferiteria := number ; 
end ; 
if answer = 72" ther 
begin 
Elrscr s 
ERY ) یت‎ 9 3 
write ) ? 
read 
sium κα 


eanver tne value (X) that yonr wish s: 9) 3 


a := at 1; 


sun :- sum + ( rnonmvectornr2Lal * 100 ) ; 


until ( sum > precent ) : 
۳۲٣ت‎ ۶۲٥۲۲۰1 ج:]‎ [3 b — 1) ; 
erd ; 
end ; 


writecriteria ; 
τειν. l; 16; 890 23) § 
eGlrser 3 
textcolor ( black ) ; 
gums.) 3 
write (da you want to change the number af the 
cy Leer lay Oy) 2 78). | 
Repeat 
getaxy CIE )' ; 
read ( ariswenr ) j 
answer i= stupcase ( answer ) ; 
uruitil (( answer -?y?) ar ( answer = r") ) 3 
if answer = ’y’ then 
Degin 


riluanferiteria : rluaznfeoriterial 


ھہ 


۳۰۲۰۲۱۸۱۷ تب ج‎ 1 s= rnarmvectaors و‎ 
۳۱۰۲۸۷ مرن ] ح ج‎ 2 :— normvectarGe 5 
Exec. 
end 3 
umtil ¢ answer = r?) و‎ 


END ; 
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ΙΝΕ ΡΕ ΕΤΕ STERG 


EROCEDURE SOLVEWITHRHP ; 
LABEL 
telos3x ; 


PROCEDURE DISFPLAYFINALS ; 
BEGIN 


window (1, 1, 80,23) ; 
textbackgraund blue ) : 
clrscer,.; 

wirdow (1, 24,80,25) ; 
textbackgraund (© wnite ) 5 
πολ τω ο 

texteclor i black ?) τ 
notunxv (c l 


if index ther 
write ( ’%’step 3 : direct input af the weights’ ) 
else 


write ( ! Step 4 i individual evaluation af 
alternatives’) ; 


gataxy CU EI 5 
write ( "final result! ) 


ap 


t a 


Ses 
blue ) 


fü 


windaw (1,1, 8a, 
textbackgreaund ( 


Clrscecv s 


textcolor ( white در‎ 


wae 


poatoxy ( 2,5 ) 3 
write ( ? final solution ? ) 3; 
for al s= 1 ta prablem.Numafalternatives da 
begin 

textcolor ( white ) 3; 
gotaxy ¢ ( ( $9 *nal )w-l]l2- 
write ( capyl prablem. Alternativesfalj,1,3) ) 
qataxy ¢ ¢ ( Š *w al )) - "μμ ; 
textcolor ( red ) ; 

write ( altvectarilalj]:3:e2 ) 
end ; 


85 


5 
3 


textbackgraund ( red ) ; 


for al := 1 to prablem. Numofalterratives doa 
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begin 
gat ax 


erd ; 
Rrit 1 1 


END ; 


BEGIN (* 


yee (S +s S x. al )) 17 


count = @ 3 


main *) 


if index ther 


begin 


alterrnativesl1 :- prablem.alternatives ; 


Evaluates ( alternativesi , altvectaer  , 


alternativesx :- problem. alternatives 


problem. Numafalternatives ,narmvectari, ax) 


s. 


altvectarx s = l U VY Semi ws 
altvectconi :7 altvectan : 
end 
else 

begir 


if norm. Specialized then 
altmatrix := specfilee&.Altmatrix ; 


remi 
begi 


ndexe then 
Y! 


for ax := 1 ta numofcriteria da 
begin 


٠٦69 رک155‎ : 
end 
lf 
Deg 


if norm. Specialized Then 
begin 

if specfileZ2.ncenrmindexLaxj “(> namex 

gota telosi3x و‎ 
end ; 
alternativesl1 := preblem. Alternatives 
evaluatel ( alternatives! , altvectoar 
pmrablem.Nimcfalternatives 

marmvectaril, ax) 5 


for b := 1 toa problem. Numafalternatives 


DII 


3 


Then 


d (ci 


altmatrix [ b,ax 1 := altveoeetort5bie 


5 
nari. Specialized then 
in 


specfilee.Electre. Numaftries := 
salution. Electre. [۱۷۷۸۷۰۷۷ ۴ 1 


sp 
sp 


specfilec.fhp.Numcftnries:- 


ecfilez.Electre.Status :- salution.Electre.Status: 


ecfilez.Ahp. Status := solution. Ahp. Status ; 


specfilež.Altmatrix := altmatrix : 
writespecfile ; 


15 


salution. Ahp. Numoaftries ; 


5 


end ; 
end 
else 


Degir 

alternativesl := prablem. Alternatives 
directea ( alternatives! , altvectar =, 

prablem. Numafalternatives, normvectarl,ax) 5 
if norm. Specialized then 
begir 

specfilez.Electre.Nwumoftries := 
solut icr. Electre. Numaoaftries و‎ 


3 


specfilec.Altmatrix := altmatrix : 


end 3 


Μα... 


if nat norm. Specialized then 
sartresult 
else 
Degiri 
b := A 
for a : 
Degir 
if specfilez.FirnalirndexLal ther 
کا‎ s= ο Ἑ αν 


|j me 


] to 3 do 


end و‎ 
if b = mnarm.Numafusers then 
begin 
sartresult ; 
specfilez.Completedall :- true ; 
end ; 
end 5 
end 5 


if nat norm. Specialized then 
displayfinals 
else 
begin 
if specfilee.Campletedall ther 
begin 
displayfinals ; 
specfile2.fhp.Status :- true ; 
specfilec.Numeoferiteria :- numaforiteria 
specfilece.Nearmvector2 := normvectareé ; 
specfilece.Normvectori := normvectarl : 
specfilee.Numafalternatives := 


preblem.Numcofalternatives ; 


`. 


writespecfile ; 
cSWerm c Cemcat ( 9.’ ,tntc ee 
prablname s= cancat ( problname ,answenr ) و‎ 
6٦9. 
end ; 
END 5 


PROCEDURE COMPUTEALTERNATIVES ; 





LABEL 

telose ; 
PROCEDURES ALLUSERS ; 
LABEL 


telasex ; 


BEGIN 
if  methodx 8 ’electre’ then 
begin 
cauntimes := salution.Electre. Numaftries ; 
if narm. Modify then 
begin 
if cauntimes ( narm. Madifytimes then 
begin 
count imes :- countimes + 1 ; 
clrscr : 


Solutioan.Electre.Status :- true ; 
soalution.Electre.Numoftries :- countimes ; 
electre 3 
end 
else 
begin 
τους ; 
OLO CES IT 
write ( yall cant modify your output * ) ; 
ب×دتا تو‎ € 3,10 »3 
write ( "hit any key to continue ο) ; 
read ( kbd,ch ) ; 
goto telosóx و‎ 
end; 
end 
else 
begin 


if countimes = @ ther 
begin 
cornrt imnes := coart imnes + 1 


`. 


elrser - 
Salut izr. Electre. Status := true ; 
solution.zlectre.Numoftries :- countimes ; 
electre : 

end 

else 

begin 
σι του SS 
ποσο "C ο mets 


write ( 7you cart modify your output ? ) ; 
gotoxy ( 9.110 ); 
write ( hit arny key to continue *) ور‎ 
read ( kbd, ch ) ; 
gata telas6éx و‎ 
end; 
erd; 
end 
else 
begin 
caunmtimes ٤یع‎ salution. Ap. Numattries ; 
if norm. Madify then 
begin 
if countimes ¢( norm. Modifytimes ther 
begin 
ات‎ 11165 :< cauntimes + 1 s 
index :- false ; 
if methadx - ’ahp’ then 
index? := true 
else 
index2 := false ; 
Salvewithahp ; 
end 
else 
ben i Yi 
ت‎ 1566-٤ 
یرت تق‎ ب٣)‎ ον. 
write (you cart modify yonr output ؟‎ ) ; 
0:23 ΠΡ. 
write ( "hit any key to continue 7) ; 
read ( kbd,ch ) ; 
gote telaséx ; 
end; 
end 
else 
begin 
if countimes = ð then 
Degin 
count ines :- countimes + 1 و‎ 
index := false ; 
if methedx = ’ahp’ then 


p 
[ú 
[ú 


index? := true 
else 
indexz :- false ; 
salvewithahp ; 
CET SEF : 
erd 
else 
begin 
ت۰‎ ος 
QELE A OSS iS 
write < y¥oGU cant 18٥11۶۷٤ تب‎ ٦ cutput ? ) و‎ 


πο. ο, τα ); 

write ( "hit any key ta continue ') ; 
read ( kbd,ch ) ; 

goto telcosóox ; 


erd; 

end : 
end ; 
telosox: 


END ; 


BEGIN (* main *) 


sStringi28 :- ‘step 4 : individual evaluation af 
alternatives’; 
diskstatus ; 
στο 5 
window ( 1,224,990, 23) ; 
textcalor ( black ) ; 
textbackgreund ( white ) ; 
metu ( 2,2) 3 
Ginreal و‎ 
write ( '" identification cof the problem 
methods : ahp,electre,direct’) ; 
window ( 1,14, 34, 23) 
textbackground ( 14 )3 
green ; 


84 


readi ; 
readprablemfile 3 
reade ; 


readnarmfile τσ 
reads و‎ 
if nat norm. Specialized ther 
begir 
if ( nat exist (pruser) ) ther 
begin 
clpseer = 
write ( ' yaua must campate first the criteria 7 
wait 3; 


E 
m 
(J 


gata telasé ; 
erd ; 
end 


5156 
begir 
readspecfile ; 
if ( rat specfilez. Completed ) then 
begir 
۶ 
write ( °’ the evaluation of the criteria is 
rat yet completed °’ ) 3; 
wait ;j 
gate telasEe ; 


erd ; 
end 3; 


if Coat yarm. Specialized ) tner 
20ت‎ ۴١ 
readsaolutionfile ; 
nuüumcafcritenria τ salution.Numafcriteria ; 


narnvectart := solution. Narmvectart : 
۲۳۲۲۱۷ 20-6 ج2ت‎ :— solution. Normvectare š 
end 
else 
begir 
۳٢٢ت 1ہج ۳1ح۴‎ := specfilec&.Numaferiteria ; 
rarmvectart >= specfilec.Narmvectart! ; 
marmvect are >= specfilec. Normvectare : 
end ; 
read4 ; 
read ; 


writernarmfile ; 

if C arm. Specialized ) then 

begir 

Salution. Electre. Numaftries = 

specfilec.Electre.Numattriess 

Salutican.Electre. Status := specfilec.Electre. Status i 
Salutian. Ahp. Status := specfilec.Electre. Status ; 
solution. Ahp.Numaftries := specfilec.Electre.Numaftries ; 
a =  Ἡ 

repeat 

a = a + Í; 

until ( namex = narm.Usersnameslal ) 3 
specfilee.Finalindexfal] :-2 true ; 

end ; 

allusers ; 


telosGe: ; 
END و‎ 


INCLUDE FILE STEP4-i 


OVERLAY PROCEDURE EVALUATE! (VAR ALTERNATIVES : TITLE! : 
VAR ALTVECTORS : VECTORF ; 
VAR WW : INTEGER ; 
VAR | NORMVECTOR1 : VECTUOURG ; 
VAR AX : INTEGER ); 


LABEL. 
ert,ert4 ; 


CONST 
ο ο. = 3 ; 


VAR 


Matni xE, result, matrix : array [i.. 20, 1.. 201 Of'real ; 


arrays, alztvectors, exchanged, altvectarse 
Tait, Vvectar2 : vectorf ; 

exchange4, alternativesk : titlel ; 
nunmatalternatives, I,caunti, xi, yi,al, bi, 
aM CS, do, hg, k3, f2, p3, l : integer ; 
score, answers, integeri, row, rawl, 
lamda, Cci, ri cr : real ; 

sta stasurig LI ; 

emnes cea»: 


PROCEDURE INFOI1 

begin 
πα ον (1, y1+1i, 80, 23); 
textbackgraund (14) ; 
textcolor( red ) و‎ 
gutosey (dee 5 


s s ec tir p lG 


writeln ( '""nate : be as accurate as possible 


—— any # greater than 1 ') 1 


writeln € ° e.g ,c2.45 or 15.4 TUNES 

Writeln ( ’ a possible scale fer inexact is : ? ) 3 

writeln ("° 3 - weakly important than , SŠ = strongly more 
importar than °?) و‎ 

writeln  Ὁ 7 = very strongly moare imp. than 


9 = absolutely mare imp. than’) 5 


Textcolar ( black ) ; 
end 3 


BEGIN 


numcfaltemrnatives := w 3j 
case rnumofalternatives acf 
1. 2T 3, 6, 7: begin 
xi SAS yl : 


li 
m 
fi 


s s 


BJ. LS : begir 
x10:2. 55 saylla oR, 

end 3 

1٣-7 ضا‎ 104+ lS : begin 
xi c= DD voli 5 

end 3 


end 3 


mnuncafalternatives στ w ; 
if numaofalternatives <> a then 
begin 


windaw (1,1,x1,y1); 
textbackground (blue) 5 
cuc 


wirdcw (x 11 ×٦ 
textbackugraundíwnite) 9; 
ےلت‎ η» 


windaw (1,y1-1,81, 22); 
textbackgroundí(14) ; 
Glrscr=s 


windaw ( 1,24, 84,25) ; 
textbackgraund ( white ) 

CIF SCS 

textcolor ( black ) ; 
با رو 6اتو‎ ccs 

write (’ step 4:individual evaluation af alternatives 
qotexy ( 2,2 ) ; 

write ( 7evaluation of alternatives according ta 
Criterion *',rcormvecteriLax1," methadx' ) و‎ 

wirdaw (1,1,x1,y1); 

textbackgraund ( blue ) ; 

textcolcr ( white ) ; 

altvectowoS := albvectems و‎ 

rumafalternatives := w 3 

ποξοχν τ. ΟΥΡ 

write (7 pairwise ccmparisan ο) 3j 

gotoxy ( 10,3 ) 3 


`a. 


:— 1 ta rnumofalternatives dca 
write ( capy( alterrnatives[all,1,5):5 , 7 : 
- 1 ta rumafalternatives dea 


for al 


gotoxy (= ,3tal و(‎ 
write (cepy( alternativesfal],1,5):35 ) و‎ 
end و‎ 


' 


سح 
RII‏ 


window (x1l+1,1,8@,y1); 
textbackground ( white ) و‎ 
textcolar( Ò ) >; 

πι πμ 301. 1) = 

EO toas priorite ya yYecter ]Γ s 


for al :- 1 to numofalternatives do 


Degin 

πεν. ι 5. tal ); 

write (copy( alternativesL[all1,1,18) ) ; 
end ; 
for a :- 1 to  numaofalternatives dea 
Degin 

وا Gao eas)‏ 6ا35 

μες < Chr ¢ 179 ) ) 
end 3 
for a = i ta numofaltenrmnatives da 
cegir 


ΕΤ σι boa 2-3 
Prete (chr ( 179 ) } 3; 
erd ; 


۳٣۰۰ (1, yi+i, 80, 23): 
textbackground(14) ; 
حر مات‎ s 


۶۰6561... 
for a :—- 1 tae numcacfalternatives da 
matr ixcbLa,al :- 1 * 
for a := ١ t= ( rumeafalternatives - 1 ) da 
begin 
criterial := alternativeslal ; 
for b := 1 tà ( numofalterratives — a ) dae 
begin 
Criteriacz := alternativeslatb] ; 
repeat 
wescteglcor € Wo) : 
gataxy C Ie) 2 
write { : is ' οριτε 'woertoer than " , 
Gps i a= ο رو‎ 3 1 j 8 
ο ο 64,2 ) j 
clreol ; 
read ( answer ) ; 
answer :- stupcase ( answer ) و‎ 
clreal ; 
μπας 1 1 ( ( answer = ’y’) ar ( answer = mn ) ) و‎ 
if answer = ’y’ then 
begir 


textecicar © Black ) ; 


geatoxy ( Τ.Κ. τ 
write ( Ἢ: haw many times is ’,criterial,’ better 
thar”. Criterram m E "DNE 
SOOTY Ll aes 
write ( z ( See nate below ) 7 ) 2 
repeat 
gotaoxy( ط۰65‎ NE 
elrec ies 
read ( answer ) 3; 
answer := stupcase ( answer ) ; 
val C answer , answers , cede ) $; 
until ( ( code = @) and ( answers >) @) ) s 
matrixela, atbl := answers ; 
matrix2Catb,al] := ( 1 / answers ) : 
matrixcla, al = is; 
Wirigdcw C ISP UIN y 
textbackgraund ( blue ) ; 
00۷٣ ( κ +4 (a 0ر و‎ IND : 
textcoalor ( white ) ; | 
write ( answerS:4:c) 3; 
Geatexy( تج‎ + (a ¥ O ) , (RSs ab) p 
write ((1 / answer3):4:2 ) ; 
end 3 
window ) 1۰,۷۲ ٣١ ο οι, 
textbackgraound £ 14 ) 3 
texteci«er ( black >) ; 
if answer = "n" then 
begin 
ΕΕ ο ο 5 ٠ 
write (ἱ Ὁ haw mary times is ",critenriaz,.? 
better than °", criterial , `° E 2s 
Gotoaxy € 1,249) ; 
write ) ( see note below ) ? ) ; 
repeat 
5526 یرت‎ ۶)۶ E 
Clrecal s; 
read ( answer ) 3 
val ( answer , answers , ende ) و‎ 
until ( ( code = à ) and ( answers (> @) رو‎ Σ 
matrixc2[a,atbl :-(1/ answer3) 5 
matrixcLatb,al :- answers 3j 
matrixž[a, a] c= 1 ۽‎ 
windcw ( i, i, xi, yi) ; 
textbackground ( blue ) ; 
textealear ( white ) ; 
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gataxy € ( Z +@ (a ο ) 


τε νε... 5 
write ((1/ answer3):4:2) و‎ 
gotoxy(( 2 + (a * 8) T3 +l a +t D) ہر‎ 


4 
write ( answer3:4:2 ) : 


end s 
Window ¢( 1,y1i+1,88,23) : 
textbackgrcund ( 14 ) ; 


gätexy (1,2m) ; 
clreo] .; 
πο νο ιν (1.5 ^ 
clreol s 


goateoxy (1,4) و‎ 
1ت1‎ : 
end; 
Sra s 
matrixetCrumafalternat ives, nmumafalternatives] := i 
ert: 


( * matrix multiplication *) 


matrix :- matrix ; 
S 


for a <= 1 to  caunt da 

begir 
for b3 := 1 t2 numcfalternatives da 
begin 


for c3 s= 1 to rnumefalternmatives dea 
arrayoles] := matrixelbs,aal ; 
for h3 := 1 toa numofalternatives da 


begin 
score :—- wu ; 
for KS := 1 tao numofalternatives da 
Degin 


integeri := arrayľťk3] # matrixēžľ[k32, h3] ; 
Score :- scopre * integerl ; 


end ; 
result [b3,h3] := secre ; 
end ; 
end 5; 
matrixz :- result ; 


end ; 
result := matrixe ; 


(* normalise vector κ) 


for p3 :- 1 ta numefalternatives dea 


begin 
raw ο Ἡ 
for f := 1 ta rumafalterrnatives dea 
row = row + resntlt ipsa oe. 
altvectersalps)] := row ; 


end ; 

rowl := )ا‎ ; 

for ps s= 1 ta rumafalternatives dea 

rawl s= rowl + altvectors3Cp3al و‎ 
for p3 := 1 ta wnumofalternatives do 
begir 
altvectaorsSELp5] :- altvectaorSLp3] / rawl ; 

end ; 


window ( xi + 1 ,1,80, yl); 


textbackgroaund (0 white ) ; 
textcolor 1 6+" ى٥‎ 
for ai :-2 1 to rnumaralternatives dea 
begin 

noto εν cU I) 

write ( saltvectoersiat) 73:4 ۷۹٦۳ 
end ; 
wirı dcw ( 1, yi+i, 80,23) ; 


textbackgnraund € 14 ) ; 
ΟΕ 


(* comput lmax and the other data κ) 


integerl := 7 ; 
for als= 1 ta numafalternatives dm 


begir 
score = A Ἡ 
far bi :- i to rnumafalternatives do 
begir 


integerl := matrixS bel, bl] 1أا]] وہ ہت جب 1ج ٭×‎ ; 
Score := scare + integer! ; 


end ; 
lamdaitail := score ; 
end ; 


7 


irntegeri :- ü 
tea numafalterrnatives da 


for ai := 1 


begir 
vectorelall] :- lamdaitall / altvectaorS5[ai] ; 
integerl :=  integeri + vectarz[all ; 

end 3 

lamda :- ( integeri / rnumcofalternatives ) ; 

if numofalternatives = 1 then 


rumcfalternatives στ ; 


cis-í((lamda-rumofalterrnatives)/(numafalterrnatives -— 


case ۳۲٣٣ ۴ 1 6٣٣٣3٣ 1 7 وج‎ "Ed 
es ri = 9. 1 š 
Bs ΧΙ. ۰كا‎ ۵18383 1 : 
D: Hi s= 4.58 : 
4: Ri := a. 9 s 
Sis +82 Ju m... 
6: Ri := 1. c4% 
ides Ri = 11l52 5 
ο. Ri :- 1.41 s 
is me :— 1,49 ٠٥ 
dude Ri := 1.49 ^ 
1 La Ri = 1.51 s 
us Ri := 1.48 : 
ως Ri s= 1.56 ; 
14: ٥ و‎ 1 7 : 
s e IT 
cid 3 


pL :— Clau 3 
"τη ( 1,y1+1, 80,23) ; 
altvector6 := altvector5 ; 
alternativesk := alternatives ; 
repeat 

ο πμ : 

for a :—- 1 ta ( rnumaofalterrnatives - 1) da 


begin 

1 albvecturstal < altvecteratlatti J ther 

begir 
exchangeslal 
altvectarSLal 
altvectorSCa+1] 
exchange4lal 
alternativeslal 
alternativeslatl] 
Seni lL t= EMT + 1-5 


albvvectamactad ; 
altvectarSCat+1] 
exchange3L[al ; 
alternativesiíal S; 
alternativeslatl] 
exchange+Llal ; 


58 
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end 5 
end; 
until counti = 8ا‎ ; 


for al := 1 to numofalternatives da 


Degin 

goatexy € ¢ (us Ge calum NIS 

write ( copy( alternativesLall,1,3 ) s 
end و‎ 


for ai :- 1 ta numofalterrnatives do 
begir 
getexy t€ ( (Sn ۳٦آ‎ n 


A8 


1025; 


Write ( altvecter»Lraldg— 


end 


3 


textbackgrcund ( green } ; 


we 


d ει 


3 


for al := i tz wnumofalternatives 
begir 
goboxy C (3 + (05x al ee 
for bi := 1 t- senna ( 
begin 
gatoxy ( € ( Sx alU 2IDM 
write ( °? ES 
end و‎ 
end ; 


3 


textbackgrcund ( 14 ) ; 
textcalor ( blue ) ; 
060٦۷٦ ( 298. T) 5 


Ar ite ( *** lamda max 
GEV 3236ی‎ s 
write ( ? consistency index 


Πο ο σος ο 


write 


(52 randomized index 


gotaxy (36,4) ; 


write 


{αΝ consistency rat i2 


qatu CSCC; 
(xx there is some statistical’) ; 
goto d nM 


write 


write 


COE inconsistency im your 


7۷٤۶‏ 6ہ ) 7لت ]ات کا 


تا ہج ؟ 


evaluat iorn. 


altwecterstall IW ) 


3 5 


write (7 (Study highlighted values fa^ °) ور‎ 
gatoxy (36,3); 
write (? probable inconsistent evaluaticmn)?) 


textealar i black ) ; 


altvectars := 


altvectarG ; 


— 


alternatives :- alternativesk 


a 
2) 


For pò := 1] to numefalternatives da 
begir 
for FS := 1 to numoftalternatives da 
oegin 
result Pes, fag =  Ἡ 
Πα πο Ες f31 = ا‎ 3 
end 
end 3 
end 3 
ησζεχν ¿(C se ae ٠ 
write  σαοσ yeu want teo modify the data (y/n) 
Repeat 


00م 


2 


d = 


τν 79.11 ) ; 


αυ τα] s3 


read ( answer ) ; 
answer := stupcase ( answer ) ; 
061 ( ¢ answer = 'y?') ar ( answer = 'n? ) 
textbackgraund ( 14 ) 3 
if answer = "y? then 
begin 
ΕΙΡ 
error := false ; 
repeat 
peu ( c.) 3 
clreaol; 
write ( ‘name of the first alternative ? 
Read ( answer ) و‎ 
answer := stupcase ( answer ) ; 
Por ai:-1 vto numafalternatives da 
segir 
if answer - alternativesiail] then 
error :- true; 
end; 
Mick l error و‎ 
a := @ ; 
repeat 
a := a +1 و‎ 


until answer 


criterial := 
ert4s 


= alternativeslal ; 


answer 3 


error :- false ; 
repeat 
Fi پ یرت‎ ( 3,35) : 
ENPeol ; 
write ( rame cof the second alternative ? 
Read (l answer ) ; 
answer i= stupease ( answer ) ; 
for bi :- i1 to numofalternatives da 
begir 3 
if answer = alternatives([(bijJ then 
error := trues 
end; 
urtil error . 
if answer = criterial then 
goto enrt4 ; 
INN ۵ و‎ 
repeat 


D= D + 1 
uritil ariswer 


lI 58 


alternatives(b] 


28 


= 
GJ 
GJ 


3 


A8 


28 


criteria? := arswer 3 

windaw (1,1, x1, yi1) ; 

textbackgraund ( blue ) ; 

matrix? = matrix 3 
tentcolorwürred 6 ٠٦ 

06۷ ( ( Ὁ +) ٛ) ۹۹۹١) <٦ 
write (C matrixzLCa p ; 
textcalcr ( black ) ; 


«s 


windaw ( 1 , yiti , 8, 
textbackgraund ( 14 ) ; 
Clr rec mik 


iu) s 


repeat 
gåtaxy( 12 ) 3 
write ( i 


3 
^is 'L,critevrial , "bettepslhar m NE 

critariač;?” ? 1) 

Gatoxy UO EIS 

elrenl 

read ( answer ) ; 

answer i= stupcase ( answer ) ; 

Clrecd s 


uritil ( ( ariSwer = ’y’) ar ¢ answer = r? } } ; 
if answer = ’y’ then 
begiri 


Doux v CT S. s 
write (*hew many times 165 ’,criterial,’ better than 1, 


Chn orias 4 i B a 
Gataxy ({ 1,4) 3 
write ( : C see nate below ) 7 ) و‎ 
ΤΟΙ κ 
repeat 


٥٣‏ 35 , 64 ) یرت ات3 

Clrec les 

read ( answer ) 3j 

val C answer , answers , code ) ; 


until ( ( code = @ ) and ( answers (> @) ) s 
MmatrixeCa,b] :Ξ answers ; 

matrixztb,al :- ( 1 7 answers ) ; 

matrixela, al s= πα 


wiridcw (1,1,x1,yl); 
textbackgraund ) blue ) 3 
gotauaxy ( Επ Ὁ ο S M ; 
textcalar ( white ) ; 
write ( answerà3:4:2) ; 
potoxy( c + (a * © ) , < ο ο 7 
write ((1 / answer3):4^:2 ) ; 

end ; 


3 


textbackgraound ( 14 


Window ( 1,y1+1, 80,23) : 
) 
textcoalcr ( black ) ; 


.if answer = r" ther 
begin 
pee € 1,3 )7 
write ( : how many times is ',criteriaz,' better than 
٦ت‎ 766٦111 °? ۴ aS 
Getaoxy (1,4) ; 
write ( ? ( see note below ) ' ) ; 
infew τ 
repeat 


gatoxy (64,3 ) و‎ 

clresl ; 

read ( answer ) ; 

val ( answer , answenri3 , cade ) ; 


τι € ( cade = à ) and ( answera3 {> A) ) : 
mMatrixela, bb] 2=(1/7 answers) 

iWRagraixe lb. al <= arswern3 ; 

matmrixzta,al s= 1 


ο πο ντ 1,1l1,%1,i1) ; 
textcalor ( white ) 
textbackgreund €( blu 
gem ( ( 2 +( b 
write ((1/ answeri3 
gataxyt z +. (a * 
write ( arnswenrà3:4: 
end ; 
ο ους i, y1+1, 80723) 3 
textbackgraund ( 14 
συ σαν (1,8) ; 
cM eol ; 
gotewy (1,3 
clrezl ; 
πετ; (1,4) ; 


Li D w 
(η 
+ 
fy 


[ιο 


p n) 


G 
م‎ 
wa 8 


; اتج را 
gata ert‏ 
end 3‏ 


Windaw( i, 1, 390, 25); 
gatoxy (1,24); 


END ; 


OVERLAY FROCEDURE EVALUATES ( VAR ALTERNATIVES : TITLE1 ; 
VAR ALTVECTORS :VECTORF 5; 
VAR W : INTEGER : 
VAR NORMVECTORI : VECTORG : 
var ax : integer ) 3; 


i 
C.J 
Cf 


LABEL 
ert,ert4 و‎ 


CONSE 
canat = SS 


VAR 


matrixž, result, matrix : array CI. ΚΟ Ἱ τσ) πο Ls 


arrays, altvectors, exchanges, altvectar6 


lamdal,vectorz : vectorf ; 


excharge4 ,altermativesk : titlel 
numcfalternatives,I,ccounti,x1l1,yl,al,b1, 


3 


ο T C GI C‏ وت ۴ت٦‏ تک 100ر کے وو ك8 وت ة 


scare, answers, integerl, raw, rowl, 
lamda,ci,nri,cnr : real و‎ 

st s-Stringmgy 

ΕΠ ο πας” 


۹057-۴ S 

pegin 
wirıdzw (Ci, yit+i, 84, 25); 
textbackgraund (14) ; 
textcoler( red ) ; 
αν ον 1, 3), 2 


3 


vectanrf ; 


writeln ( ''mnaote : be as accurate as possible 


amo oar Seco s 


any € between a ard lU e.p 
Writeln (* a passible scale for inexact 


E 


writeln ( ° 3 = weakly important than ,3S = strongly mare 
importar thar °) ; 
writeln ( !1 7 = very strongly more imp. thar 9 = 
absolutely more imp. thar’); 
Textcoleor ( black ) ; 
end ; 
BEGIN 
rinmearaltermatives := w 5 
case numafalternatives af 
144859695, 6, ds. ۱٣ 
ز×‎ ;= 50 5) yi Pec 
end ; 
8+17 : begin 
xi πο 5959 ٠ ٣ب‎ ٠ 05 ٠ 
end ; 
15.15.1" 3 : begin 
κι ا بج 7۵ہ‎ ο 
end ; 


end و‎ 


rumafalternatives :=w : 
if mumoafalternmatives (> A then 
560 

.)1۱ ب 1:77,07 )"مات ہ۳٣ Pe‏ 

textbackgranund (blue) ; 

٤‏ مرج ےک 


wiridcw (x1+1, 1.80. y1) ; 
textbackgraund (white) 
Sipser 5 


`. 


ο ο ο (1, yi+1, 80, 23): 
textbackgrcund(14) ; 
αι ο ۶ 


Cece ( 1,24, 88,25) : 

Pee و×+ا ع09‎ "ت۳١‎ € white » 3 

elser s 

κε ας í black ) 

Geamexy (2.1) ; 

write (step S:direct input of alternatives weights’) ; 
altvectors :- altvectaer3 ; 


wrsadew (xiti, i, 8a, yl): 
textbackground ( white ) : 
ο σι wd ) ; 

; )1,1( بیغرت ھت 


ἱ ’ priority Vec tense 21)‏ تا 
for ai s= 1 ta rumofalternatives dn‏ 
begin‏ 


(uz .5 tal 5‏ ب رت ید ت 

write (copy( alternativesLall,1,18) ) ; 
erd 3 
for a := 1 to rumofalternatives do 
oegir 

5-۲۲۰۷ و قات) ب‎ + a 

chr € 1‏ ( جج۲ 
end 3‏ 
for a στ l to rumefalternatives da‏ 
DOegir‏ 


) 3 
νε e 


ον ὑν σσ t+ a X و‎ 


re ( Chr < 173929 ) ) 3 
end ; 


window (1,yl+1, 30, Z3) ; 
textbackgnraund(14) ; 
pb scm.; 


evt: 
infol; 
textcoalaepb {8 7}. 
rm t l n Tm: 
write ( 'enter the weights af the alternatives 
for a :- 1 tao numofalternatives do 


begin 

gataxy (2 τις ᾗ 

write ( alternativesLal , ' : 7?) 3 
erd; 
For a :2 1 toG numoafalternatives da 
begin 

repeat 


gatroxy ( length lalternativesfCal]) +35 , Eta ) 
clrecl ; 
read ( answer ) 5 
val ( arizwer . answers , cade ) 31 
urtil( (code = Weandtanswersa)-1l) and (answers 
altvectarSCal := answers 


end ; 
rawi i= uU 3 
for pS ξ 1 ta rnumoefalternatives da 
raw! s= Trewl + altVvectemat pst. 
for p3 :—- 1 to  rnumcfalterrnatives da 
begin | 
altvectarsSLp3] s= altvectursipald 7 اتمم‎ 5 
end 3; 


window (Si, 1,80, 202 
textbackgraund (€ white ) ; 
for a :—2 1 toà rnumafalterrnatives da 
Degin 
Gebaxy (ee, aro? ٦ 
write ( ج‎ ۱۷٠۷/66۷۶۰ ءئ)‎ ٣٥٣ 
end 3j 


window ti, T380, 23 ) 
textbackgraund(14) ; 
els Cigmre 


altvecters i= altveceturse 
alternativesk := alternatives ; 


repeat 
ت6‎ ۰٦ 


for ai s= 1 tea ( numafalternatives-l) do 
begin 
if altvectarS£fal «X altvectarSlatij then 


begin 
exchangeslaj :- altvecteoerS5[al ; 
altvecterSlal := altvectomsSLatil s 
altvectarSLat*til := exchangedlal ; 
exchangest(al := alternativeslal ; 
alternativeslCal] := alternatives[ati] ; 
alternativeslCatil] := exchange4Cal ; 
μμ = cunti + 1 

end ; 

end; 
until counmti = ü ; 


) 


Form a := 1 to ( numafalterratives ) da 
begin 
پ ہرد حاتہت‎  « ο ο a vee) y 9. ');z5 
write (eapy( alternativeslCal,1,3) ) 
end 3; 
for a στ 1 te ς wmumofFalterrnatives 
oegin 
gatixy ¢ ( ec ANUS . id. της 
Ur1te (altwBdctersLals:sus ; 
end ; 


ae 


ome 
Gû. 
2 


اھر 


textbackgrannd ( green ) ; 
fer a i= 1 t2 ( rnumefalternatives ) dc 
begin | 
gm cov ) ( ٭ بت‎ a 2,8 X3 
write ) ὋΝ en 
end و‎ 
for ao r= 1 to ( mnumafalternatives ) da 
begin 
gotaxy ( 
pul s 
begiri 
πετ πο σας a 2) , (2 πο λα ; 
Write ( 7? E 
end ; 
end ; 


Sg a 2) «ο ee; 


(Š + 
i ta round (0 altveeterSCal] * 18 ) da 


- 
7 


gatexy (2,11); 
textbackgraund € 14 ) ; 
textcolcr ( blue ) ; 
write (’? da you want toa madify the evaluation of the 
alternatives (y/n) ? 7) ور‎ 

Repeat 

gaetexy( 65,11 ) ; 

clrecl ; 

read ( answer ) j 

answer :- stupcase ( answer ) و‎ 
ΠΤΙ] ( ( answer = 1y!) ar ( answer = "y? ) ) 


“Βα 


window {1,15 Ga ٦ 
textbackgraund(14) ; 
if answer = 'y? then 
begir 

eirscr a 

gata ert 5 
end 5 

erid s 


alternatives := alternativesk ; 


END ; 


SVERLAY PROCEDURE DIRECTZA ( VAR ALTERNATIVES : TI ios 
VAR ALTYECTORS : VECT 
YAR Wo: INTEGER ; 
VAR NORMVECTCRi : VECTORG : 
VAR AX : INTEGER) : 


c 
سے‎ 
in 


LABEL 
ert92,telos23x ; 


CONST 
Courit = Š = 


VAR 


matvix2Z, ΘΕΟ ΠΑΡΙ ο G Sy say ο. ο τα ۱ SM 
arrays, altvectars, exchanges, altvectorG : vectaorf ; 
1 ة3٥٦١ج‎ 1.۰76 مت ج ج‎ 2 ٠۷٠٠ب‎ 96 ٥٣ 

exchange4 ,alternativesk : titlel : 
tempgn^ade,tempgr-adei : vectaorf و‎ 
numafalternatives, I Courti, XKi, yi a $i.1:1mic 09055 
a3, D3, CS, dS, NS, ο ο σος ὃς CE | 

Sscure, amswers, integerl, raw, 

row, landa, Crier. Collie 5s neo ٣٠ 

δε ۷۴۷۰ ۰ ٦ 

cUm MEET 


BEGIN 
ria falterratives := w 3 


case rnumafalternatives af 
1,9, 5449494655. ۰.77 "6 


xi := Jð ; yi ۰ء‎ m 

end 3 

8 1 : begin 
x1 s= SS ο v1 T: - 


end 3 


1 “71.5. 7, >: begin 
Mime > VU s yl :—19 3 
end 5 
end 1 


numcfaltenrnatives :- w و‎ 
if rnumafalternatives (> a then 
begin 

window (1,1,x1,y1); 

textbackgranund (blue) ; 

ESC: 


window (xi+i,1, 8a, y1) ; 
textbdackgronund (white) 
ατα s 


`. 


s πο (Ll, yviti, 8d. 237: 
textbackoraund (14) 
ESC 3j 


window ( 1,4,88,25) ; 

textbackgrcund ( white ) ; 

Glirser 5 

textcoler ( black ) 2 

pem (2,1) 3 

write(’step 4 : individual evaluation of alternatives) ; 
peace c.c)» 2 

L wm : direct input ^ >, s‏ .ت2 


~a 


Wagers (1,1, x1, y1) $ 
textbackgraund ( blue ) 5 
textemlar ( white ) 3 
5ت3‎ 2.1) 3 
write ( ' alterrn.Evaluaticorn : working area 1 ) 5 
fer a f= 1 te numaforiterra do 
begir 
answer کسی‎ neormvectaoriial ; 
delete ( answer, 4, length lanrswer) ) ور‎ 
genea X PS, a+3) 3 
write ( answer: ) 3 


end ; 
for a s= 1 tà mumofalterrnatives da 
begin 

answer :- alterrnatives[al ; 


delete ( answer,4, length( amnswer)) و‎ 
Πω ( ہے‎ +. ( S¥(a-1)), 39 s 
write ( amswer ) 3 

end 3 


WENN (x1+1, T780, y1); 


141 


textbackgraund ( white ) ; 
textcalar( A); 
0 (1 


rite pri larity er tur oS 
for ali στ l t= mnumafalternatives da 
begin 


gatoxy (€ £93, Septal oe. 
write (copy( alternatives[all,1,18) ) ; 


erd 3 
for a :— 1 to ruuncfalterratives da 
begin 

gåtóxy (2n ΕΞ. 

write € 0۳۶ ) T; 
erd ; 
for a :- 1 to numcafalterrnatives da 
begin 

SSC ο. 

writes C. ΤΗΥ». 


end 5 


Windcw (1, yl+1, BA 25) 7 
textbackgraund(14) ; 

ο τετ a, 

for a r= 1 tea ruunafcriteria da 


begir 

if narm. specialized Then 

begin 
if specfilec.narmindexfCal (> namex Then 

gato telos3x ; 

end ; 

Hectoxyv CEES 

write ( 7 ** evaluate alternative according ta 
criteria, narmvectar ۲ کک یں جد‎ 

For b := 1 to rnumafalterratives do 

begin 


wincdcw ) 1,۷1۰۶۴ 1۰,۰8 ۵٥ 

textbackgramnd(14) 3 

textcolor ( black ) ; 

Olay {CES E 

write (b ,' - fear alternative 7’, alterrnativesí[bl , 
: any value between @ and ia ? 7 ) و‎ 

Az s= 76 3, yc :— bue s comcs Vut E 

checknumber £ answer, xi, yi, limit, coant ) ; 

tempgradeif[bl := counts ; 

window (l,l, Xl, y1; 

textbackgraurd ( blue ); 

textceolor (0 white ) ; 

götaxy ( مج و‎ ( Sw(b-1)), στο 

write ( tempgradeltbl1:la:zZ2 ) 

erd 3 


`... 


ΘΥ 53: 


tempgrade := tempgradel ; 

(* mnonmilize vectar κ) 

raw = U 3 

for p3 := 1 to numafalterrnatives do 
raw i— raw + tempgradeCps] ; 


for p3 := 1 ta numafalternatives da 
tempgradetp3l1 :- tempgradetLp3l] / raw 
window ( xi + 1 ,1,80,vi ) ; 
textbackground ( white ) ; 
textcolar ( black ) ; 
for al :- 1 tà mumcofalterrnatives da 
begin 
BATAY (22 alk o) 5 
write ( tempgradef[ail:3:2 ) 3; 
end : 
ت٠‎ 0 οἱ. ται 89. 2.) 
textbackgreundtiise) و‎ 
ہج ےت‎ s 
far ai :—- 1 ta rumoeoralterratives do 
begin 
goatexy ( ¢ (ONES Lo , 148 39 3 
write ( capy( alternativestalil,l1,.) ) 
end 2 ' 
far ali :- 1 to numafalterrnatives dea 
begin 
پیرت ]ک3‎ .) ( (58x al ο "۔.'‎ ie ) 
write ( tempgrade[aijlj:3:2 ! 3; 
end ; 


`a. 


textbackgraund ) green } ; . 
for al s= 1 ta numaofalterrnatives da 
beqin 

5555 ×۶ Go ct (cm *ual 2) > ) 9 


fumme Di : τα σα (  tempgradetail * 14 


begin 
BRI ο ( (5 * al )) , (2 —bl» 9 | 
write ( 7 CES 
eri s 
end 3 


textbackground ( 1⁄4 ) ; 
textcolor ( black ) 3; 
Etuxv ( 36,11) 3 
write (do yan wart ta modify the weights 
repeat 
üwtoxy ( 78,11); 
clreal ; 
read ( answer ) و‎ 
answer :- stupcase(answer) و‎ 
until ( ( answer = ?'*Y?') ar ( answer - γι’ 


(ra) ? 


3 


) 


if answer = 'y' then 


begir 
ΕΡΘΕΙΣ 
errar i= false ; 
repeat 
رت نات تو‎ ب٣٠)‎ ٣۶٦ 
:18ات‎ s 


write ( 'name of the alternative ? 7 ) ; 
read ( answer ) ; 


answer := stupcase ( answer ) ; 


for al = 1 ta numafalternatives dm 
begin 
if answer = alterrnativestall then 
errar := true و‎ 
end 5; 


٦86117 کہ کہ‎ 3 
a i: e 


repeat 
al = al + 1 
antil answer - alterrativestalJ] ; 


1 ۰ 


Window ΟΥ. ms 

text background ( blue ) ; 
textcolar ( red ) ; 

Πιν πο cy cS 
write ( tempgradelitalil:s:2 ) ; 


window CIV ΕΘ ΞΘ; 
textbackgraund(14) ; 
textcalear(black ) 
8 ,۹ب پر ت با بت‎ 
write ( far alternative 7, alterrnativesfall , 

: any value between 4 and 1a 2? ° ) 3 
AZ := 76 í ye = but ۱۱ک" " ت ٣١ت ج٣ ۶تت‎ EIU EE CIE 


"8 


checknumber ( answer, xl,yl, limit,caunts ) ; 
tempgradellCallj] := counts ; 


wWirideow (li, li xl VI: 
textbackground ( blue ); 
te»xtcolmo € wie DI 


petoxy 0C gor CoA cL - 
write ( tempgradeltall:3:c ) ; 
gota ertə = 

end; 

for al := 1 to numefalternatives dao 


altmatrixta,all] := tempgradeCall] ; 
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ποσο €61.w1t*1,8U, 2.) ; 
textbackgrcund ( 14 ); 
LextCeolor € black ) ; 
ος ο 
۴+ لی‎ SIK: 
erd ; 
end ; 


END ; 
BNELLDE FILE 4-2 


pESEDYSEROBEDURE ELECTRE ; 


TYPE 
scale = arrayli..4] Of name : 
ing ο Αλ λε. αἱ ο. integer 7 
کہ ہک‎ = Ua eV Cie ag i... SU OF real 
VAR 


flere, a, DC, limit = integer ; 
sum, result, pfactar, 
qfactar,max, min, counts : real و‎ 
discordance, cancardance, 
mMatrixdance, matrixcan : matrixcd 
pP RARI : array’; 

@reiteria =: vecterg ; 

Critvalue =: vectorn ; 

mte» : titlel ; 

grading : arayl و‎ 

gradingweight : araye j 

index, cindex,dindex : ind 5 

sti : name 5 


FROCEDURE WRITEWORKSHEET ; 
BEGIN 
windaw ( 1,1,41,12) ; 
textbackgraund ¢ blue ); 
textcolcy ( white, ); 


Πο ( 2,1) 3 


write ( °" altern.Evaluation : working area 


for a := 1 to numafcriteria da 


begin 
answer := criterialal ; 
delete ( answer, 4, length (answer) 
Duos € S + ) 48 (a-1l)) as) as 
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π 
4 


write ( amnswer:4 ) 3 
end 5 


for a :- 1 to numafalternatives do 
begin 
OGY eee, Ae 


answer :- altertal ; 
delete ( answemr,^4,lergth( answer)) 3 
write ( answer:3 ) ; 
end ; 
END ; 


PROCEDURE GRADES و‎ 
VAR 


base, step : real ; 
SEGIN 
for a = 1 ta numcferiteria di 
begir 
base := critvaluelal * lad ; 
step := base / 4 ; 
for bo 325) 3 ٣ 
gr^adingweighttb,al :- base - ( step 


— 
— 


end ; 
END ; 


PROCEDURE WRITEGRADING ; 
BEGIN 
window (41i, 1,8%, 12) ; 
textbackgraund ) white ); 
بب تح نب‎ ۰۹٦۹" 09ب‎ ٦ 
00 ا‎ ۲۰ 
write ( !'qradirig scale ' ) : 
Tor a := 1 tao namaferiterita da 
begir 
ہہرت باتق‎ C 7 ο ο ασε Αα ο - 
answer i= criteriaL[al;:; 
delete ( answer, 4, length( answer) ) : 
write ἱ  answer:4 ) و‎ 
end ; 


gataxy li, 4); 
textcalaor^ ( red ) 


, 
write (WEIL: IS 


For a := 1 tao numoafcriteria dna 
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got 


oxy 4 + ( 4*a),4) 5 


write ( round(critvaluefalxiüu2a) ) ; 


end ; 


LEN OTIS black ) ; 
gat axy ( 1 6 ) 


write 


write 


3 

) 
TERY CC در 7 ا‎ 

) 3 


( "exce? : 


( *gaad? 


ου Εμ 9) s 


write 


( *aver?)3; 


gue» ( 179); 


write 


part) s 


ΙΣΧΥ (1. 18) 3 


write 


(weak?) 3 


grades ; 


for a 
begir 
ELT 


Seg 


s= 1 te numoforiteria dc 
9 :- 1l to 5 da 
ir 


ECER CAT CC Mp. box.) s 
write ( raund(gradingweightCb,aj) ) ; 


end ; 
END ; 


PROCEDURE GRADEALTERNATIVES ; 


LABEL 
jmps 


BEGIN 


a 
3 


windaw ( 1,135,890, 24) 


text 
text 


; 
backgraund ) 1⁄4 ); 
بت‎ ۱۰۲۷3۵۸۲) Slack oD; 


if norm. specialized Ther 


z 

F mi" 
begi 
[c 
wr 
f I 
be 


rading :- specfilec. grading ; 
a :— 1 tao numofalternatives da 
ΤΙ 
tency τί d 5 
ite ( κκ evaluate alternative ο, alterfal , ° v 
τ Sg to numofcriteria da 
gir 
if norm. specialized Ther 
begin 

if specfilec.mnormindextb] - namex Then 

gata jmpJ3 ; 

end ; 
write (b ,? — for criterion *,criterialb],’ any value 
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as 


between å ard *',maundigradingweight[1.532,???);3; 

AI SN UC 
vi سی‎ m. 
Cant SS aA f 
limit := reunad( oradingwerght ll, bJ) ; 
checknumber ( arswer, xXil,yl,limit,counts ) 3 
grading@ag bs 2S conmt. ; 
windaw ( 1,1,480,12) ; 
textbackgreanund ( blue 2; 
uotoxyC Z + (€ &%D) cct) ; 
write (raund(gradingla, bJ)) ; 
wirdaw (1,15, 84,23) ; 
textbackgraund ( 14 )3 

jmpa: 


end 3 

e ly Sea 
end ; 
ENDIS 


PROCEDURE FACTORS; 
BEGIN 
windaw ( 1, 13,780,723); 
textbackgrannd ( 14 ); 
تح یح‎ 
textcolovr ( black ) ; 
gataxy ( i 4) 3 
write ( ?'*«* eanceardance thresheld (p) CA — 14) : πο... 
ην. ο ος 
write ('( nb. becomes severe as it approaches 1 
Rie eS 7M s vi = SG ceeunts <= Ὁ 59 mic E 
checkrumber ( answer,xl,yl,limit,count3 ) } 
1۲66م "۰ حرت ۲ج۴ م‎ ٦٥ | 
gataxy m 2; MES 
write ( ?'*x* discordance threshold (q) CA — αι] : ` s 
gataxy ۱٦ 
write ('"(nb .. becomes severe as it approaches 1AA )? 1) 
Al s= 74 5 yl := Bj. 
σεις = W ; limit = DEM 
checkruımber ( answer, xi, yi, limit, connt 3 ) 3 
qfactor := ccu ; 
if ((specfilež. pfactor O 0) Ard 
(specfilez. Ffactor (pfactar)) then 
pfactor := SpecTIlez. Bac. 
If ((specfi fed. qfectar O A ) Ard 
( specfilec.QGfactar > qfactor ) ) then 
qfacteor := specfilec.qfactar ; 


Windaw (41, 1,88, 12) ; 
textbackgraund ( white ); 
textealar ( black ) ; 
qotiuxyv ο ιο... 
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lI 


۳۰٠٢ ٢... - '".pfacton:35:2," * q jaa f bli s 
2 


if norm. specialized Th 
begin 
SpPocC ilez. pfaðtor s= pfactar ; 
ہًرت ت9۴3 .160 6+71ت58‎ ε- qfactaor 
specfileé.grading := grading ; 


Yi 


un 


A =; 
repeat 
am a + 1 ; 
٤11 ( namex = norm. UsersnameslCal ) ; 


specfilez.FinalindexiíiLal στ true ; 
writespecfile ; 
end 3 
END ; 


PROCEDURE COMPUTE1 ; 
BEGIN 
Exc = l1 to numefcreiten^oia da 
Denin 
per Spadina, Gi —-nradirngtb,clj^) then 


Sum :- sum * critvaluetcl ; 
end : 
if ( a (2 b ) then 
cancardancetla, 0] := sium * 1uu 
else 
ت٣ت‎ ٣٥٣:٣ la, bl := 1 ; 
END ; 


PROCEDURE COMPUTE ; 


BEGIN 
Meee جح‎ <= τὸ numofcriteria de 
begir 
τ, grading [bD; c] > "wadingta,cj ther 


0۱٢٥ L LD C= grading a, cl 3‏ 2۰ :9ت 
Lf ( result (2 sum ) then‏ 
result <= zum ;‏ 
era:‏ 
if ( 8 (2 b >) ther‏ 
discerdancela, bi := result / critvaluelid‏ 
else‏ 
discerdancela, bj := 1 ;‏ 
ENDE‏ 


PROCEDURE COMPUTECONC 3 
BEGIN 
for ἃ 1 1 ta numofalternatives der 
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begin 

for Ὁ := 1 to nunafalternatives da 

begin 
Sum :- A s 
camputel s 

end 3 

eund 3 
END 1 


PROCEDURE FINTINDEX1 ; 


3 


BEGIN 
for a :- 1 to rumazfalternatives dn 
begin 
C :— d 3 
for b :- ] to mnumafalterrnatives da 
29ت‎ ۹ 


if comcardariceta, bJ >= ofactar ther 
c πο ο. 1; 


cindexLtal :- c 3 


end ; 
end 3 
Fl := 0 ; 


for a := 1 to namofalternatives do 
fi := fi + cindexlal و‎ 


ENDIS 


PROCEDURE COMFUTEDISCONC ; 
BEGIN 


for a :- 1 tao numaofalternatives da 
begin 


for b := 1 ta vrnmcfalterrnatives da 


begin 
sium :- Wg 
result :- uU ; 
camputec 3 
end ; 
end ; 
END ; 


PROCEDURE FINTINDEX2 و‎ 
BEGIN 
for a s= 1 to numofalternatives dea 
begin 
c a= @ 
for b : 


1 to numafalterrnatives do 


begin 
if discerdarnce[a,b] (2 qfactar ther 
C s= C€ + 1; 


eundexLtal]l := c€ — 1 ; 
end ; 
end و‎ 
s= ; 
for a i= 1 ta numofalternatives da 
f2 = fe + dindexlal ; 
END ; 


PROCEDURE WRITEALT (var sti:rname ; var matrixcen :matmrixzuü ; 
var index : ind )3 


BEGIN 


far a :—- 1 to rnumceoralternatives da 
begir 
answer := alterlal ; 
delete ( answer,4, length( arswer) ) 
B cXxviC c.a + 3) 3 
write ( answer:4 ) 3; 
end 3 
for a := l te rnumafalterrnatives do 
begin 


answer := alterlal ; 


3 


delete ( answer,4, length( answer) ) τσ 


oot €C a w 5 ) , 3 >) 3‏ ( یرت دہ 
write  answer:3 ) 3‏ 

end 3 

tercalar ( red.) ; 

peus Coa 811} * 3) Ds 


werte ( stl ) 3 
textcalor black ) 


3 


form a := 1 to numofalternatives da 


begin 
for b ےی‎ 1 to numafalternatives d 
begin 
geny S ος ο ο 5 a + GS) و‎ 


if ( a = b) then 
write c9 
else 
write ( raGundímatmrixcoenL[a,b1) ) 
end ; 
end 3 


3 


textelor ( red ) و‎ 


for c i= 1 to numocfalterrnatives da 


begin 
notoxy ( o9 Ὁ ο (BFI ο ον Ὁ e 
write ( irdex[cl1 ) ; 
end s; 
σεν απ πώς (Black Di; 
END ; 


PROCEDUTE CONFINT ; 
BEGIN 
window (C 1,135 bp E 
textbackgraund 6( 14 ); 
textcalor ( blue ) ; 
elrser ; 
Hub v € ge.) 
wrie (concordance matr irn o in m 
Ccapi t ec ciri 
παπι πανκ = 
تج‎ 0 21٣۴ Ὁ Εν,» 


Sol ME 
matrixcan :- cancordance ; 
index :- cindex ; 


writealt ( sti ,matrixcan,index ) ; 
textoolon €( blue ) ; 
gat axy ( ت8٦‎ c) 3 


write ("** ë a concordance index indicates ta ' ) ; 
gataxy ( id 3) 3 

write (? what extent an option is better than ?) ور‎ 
götaxy ( 38,245 

write 0O another in terms af criteria weights °); 

πι ανν 777 

write ('**x the index varies between [ 2 — iua J] " و(‎ 
παρα ο C ) 77۶٦ 

write (° the higher the better . ? ) ; 

GEERT CS E: 

writen? دی‎ a indexes are >) = ?";,raundí(pfactaor)) و‎ 
8۱56 ۶۷۹۰۰۹ ; 

write i ےب‎ σσ] γι dci indicates che # of indexes ? ) ; 
ΠΕΙ ;Ε ΠΡ 

writer: satisfying p for esch Πο Ιώ ο) = 


gi Gay 7 ۶ ٦ 
write ( 'hit any key tae continue 1 ) و‎ 
read ( kbd,ch ) 3 

END ; 


ضس 
Cl‏ 
Γιι‏ 


PROCEDURE DISFINT ; 


BEGIN 
GON ( i, 153, 80, 23) ; 
textbackgranrd ( 14 ); 
αυ ο 5 
poxrccelorb ( blue ) 3 
ο ον ( 3,:) 3 
write (discordance matrix 7 ) 
ceomputedisconc j} 


ہمہ 


fintindex? ; 
taxtoclor ( black ) ; 


sti := "'tddi'; 

matrixcon := discordance ; 

index :- dindex و‎ 

writealt ( stl ,matrixcan, index } 

pestem; ) »lue 9) ; 

οι μες 60.) ور‎ 

write (cx a discordance index indicates te ' ز۶‎ 3; 
gatoxy ( 44,3) 3; 


write (" what extent an caption contains a bad ὃ) ; 
gataxy { 40,4) ; 

write (° element that makes it wun-satisfactcary 1); 
gatoxy ( 40,5) ¢ - 

write ('**x the index varies between NL <> {5 17 
gataxy ἱ 40,6 ) 3 

write (' the lower the better . ' ) و‎ 

ιν. (€ 4. 7) 3 

write (' tois indexes are (7-7 ‘%,qfactaor:G:2 ) 3 
qotoxy (€ 40,8) ; 

write (7 «κκ column «ci indicates the # of indexes ? 
πμ ( 40,2 y 3 

wr due owt ? satisfying q for each option ? ) ; 


;3 )2,10 ( ھا5 
μπητ (hit arny «ey to continue °° ) 3|‏ 
read ( kbd.ch ) 3j‏ 


END ; 
PROCEDURE COMPUTEOUTRANHKING ; 
BEGIN 
For a s= 1 ta numafalternatives da 
begir 
for b :- 1 to numaofalterrnatives doa 
begin 
if ( ( concordancefa,b] >= pfacter ) and 
( discerdarncela,bJ (= qfactar ) ) then 
mutrankingla, Bb] :«Ξ κ’ 
else 


p 
Ln 
(η 


۰۶3-٠٣‏ 1 ط3۰ 8.6 1۳ 3۴ض ىا بت 
end ;‏ 
end ;‏ 
for a := 1 to rnumofalterrnatives da‏ 
cubrranikiumglss Ἢ, τ; ΘΙ‏ 


ENDE 
PROCEDURE OUTFINT ; 
VAR 

ans : name ; 
BEGIN 


windaw ( 1:15 99005155) وا‎ 
textbackgranund ( 14 );7; 
textcoalor ( blue ) : 
66ات‎ = 
quate. CNET 
write ('autrarking matrix 7 ) 
ات5 ٥ت ےت‎ 6 66100677 1 r m i 
τοτε. ΕΕΤΤ ضر‎ 
far a :- 1 toa numoatalternativesz 
oegin 
aris := alterLlal ; 
delete ( ans,^,lerngth( ans) ) 
qgqataxy ("E ہے‎ 52 s 
write ( arns:4 ) ; 
end ; 
far a := 1 to numafalternatives da 
begir 
ans στ alter[al ; 
delete ( ans,4,length( ams) ) ; 
qutcocy" Cog E 2x5 ) Ss 
Write 4 amets 


RE 


i. 


Bg 


end ; 
for a :- 1 to numaofalterrnatives da 
Degir 
fcr b :- l1 to rmnamafalternatives da 
Degir 


gotoxyv < 3 + CD F So ees ee. 


write &cutrankirgbesp ) ; 
end ; 
end ; 


textonlor { blue ) ; 

qutuy < SBI Pm) 

write ('** an autrarking relation * is the °? ) ; 
gotoxy ¢€ 38,3) ; 


write (° ane that satisfies both concordance ^") ; 
qgoatoxy ( 38,4) ; 
write (° and discordance requirements. ?); 


۶٣ص MN GE‏ 0ت2 تا تا 


write ('** an -— indicates that there is 7? ) 
Hec y ( 3876 ) 3 
write (? no mutranking relaticmns. 7 
“ήν (12.10 .) و‎ 
write ( hit any key ta continue ' ) : 
read ( kbd,ch ) 2 

END ; 


as 


BEGIN (* main *) 


window ( 1,1,40,12) ; 
textbackgreaund €( blue );j 
Givecr 3 


window (41,1,840,12) ; 
textbackgrcund ( white ) ; 
ΠΕΡ s 

و τι ο τς ος δω)‏ 552-0 3ت 
و( Text baekor cnnde Gals‏ 
CIF SO‏ 


window ( 1,24, 80,23) 3j 

textbackgraund ( white ); 

muc s 

pexteelu ( black ) 5; 

ο ορ 2.1) * 

write ( 'step 4 : evaluation af alternatives 7 ) 3 
Π.Ι...) 5 

write ( "method used : electre  } و‎ 


if ( nat morm. Specialized ) then 

begin 
alter := prablem.alternatives ; 
maumafalternatives := problem.rnunarfalternatives ; 
criteria ὃς saluticn. normvectarl ; 
Critvalue := salutian.narmvectare ; 

end | 

else 

begin 
alter := problem. alternatives ; 


= problem. numafalternatives 3 
eiz.ncormvectonri ; 
leZz.noarmvectaorz 3 


nmumafalternatives 5 

criteria := Specfil 

Critvalue := Specfi 
end ; 


writewoaksheet و‎ 


writegrading ; 


gradealternatives و‎ 
factors و‎ 


if norm. specialized Then 
begin 
b := 4 
rom a MES ο εἴπ 
begin 
if specfile2.finalindexiftal] Then 
D $= ο κ. 


ll we 


end ; 
if ( b - rarm.Numcfuservs ) then 
specfileé.Electre.Status := true 


else 
specfilece.Electre. Status := false ; 
end 3; 
a |G (rnat μα pDemrsallcod JE 
( parm. Specialized and ۴تح‎ ٣" ٠٣ قب )ت۹٣ 2 ۔ ت6‎ ١٥٦ 


then begir 
repeat 
window € 1; 13,80,23) 5 
textbackgraund ( 14 ); 
CIR SET 
textczlzr( black ) ; 
gat oxy Eo ٦ 
write (F menui 7 ) : 
qetoxy (Z, #à) ور‎ 
Write τι GConececdaricemmatr ix» 


Cex DM 

write ( 'z. Discerdance matrix °? ) 5 
qat ci y ¢ = e) 3 

write ( ?3. Outrankirg matri o η η. 
8+7 +۱۶۶٦ 

write ( 4. Madify threehoaids ؟‎ ) ; 
Bie Cima (a. oO) ae 

write { 75. Exit electra’ 2-53 


i 


πω σώοι ds 
write 0 “select rer 055) ? ' ) ; 
Repeat 

gataxy¢ 3,1) ; 

clreal 2 

read ( arswer ) ; 


until (Canswer =’ 17) ar (answer = 727’) ar (answer = 
ΤΩ) or (answer = 747) ar (answer = 73’) ) 3 
if answer = ’1’ then 
contis ٤ 


if answer = 72" then 


Sfint ; 

if answer - '3' then 

Degin 
computecoernc 3 
camputediscanc و‎ 
mut rirt s 

end s 


if answer = 74° then 
actors 
until ( answer - '2' ) ; 


if ( nat norm. Specialized ) then 

Degir 
Suit iG E 60-81-6-10 ۳۰۹۲۴۱۴۷۹۳8 :-—- auütranking 3 
writesalutiacnfile ; 


iD 


ti O 


{0 


Y 
lze 
enir 
specfilec.Flectre. Ontranking στ sutranking : 
writespecfrtile ; 
end 5 
end 5 
END ; 


{J 
i3 


NEL UDE FILE STEFS 


ο. αρ αν FEFEOLEDURE GDSS ; 
LABEL 


7616 1-٦ 


TYFE 
names = mame و‎ 
altramesi = array[i.. z0] Of rames ; 


Ieee = arrayli..6,1..2£43 OF real ; 
ardirnaliz = array [1..zug] Of integer 
5۲٥۱٢٦١ = array L1..64J Of arpeinale & 


VAR 


a,b,c snumafalternatives, resultx, nmumofusers , xxx و‎ 
caurntahp,caountelectre,suma ,ccountiz,fl1 : integer ; 


filnamel,xx,prusenri1 : names yj 
altvector6 : array £1.:6] ai νε T ٥ 
altnames : array (€1..6] af titlel ; 

i Sersnames : ramec : 

answers, Uuserx : rames ;j 

٥٣٥‏ 7 ۰ ٦٠ى‏ 3 .تچ ,٢١ت‏ 96ہ ۱١۰٠۷‏ جع کرت 

altnamesG : titiel ; 

bri, ardinali, aril, ar4, individualardinall, 
individualvecteri : ardinale ; 

ordinal, individualordinal, individualvectear : ordinals 
resultxi,resultxz : real ; 

weight : vectorsi ; 

ci $ Eha fT 

indexm arvrayLll.. 91 Of Ear. 


. 
J 


PROCEDURE COMPUTEL ; 


REGIN 
Far b += 1 ta numofalternatives da 
begir 


Suma r= ۶ژ‎ 
for ο ο 1 ta rumoefusers da 


begin 
ordinall := órdinallcl ٤ 
Suma := Suma + ardinalifCbd ; 
end 3; 
ar 1[l[bl :- suma ; 
end s; 
far a := 1 to numafalterratives da 
begin 


ea Gia (Te. atg EE 
write ( arllal 95 
end ; 
END ; 


PROCEDURE COMPUTEZ ; 
BEGIN 
for Ὁ 1 1 to numofalternatives da 
begin 
resultxi := mñ; 
for c := Í to nmumafusers dea 
begin 
altvectars := altvectsare lel: 
resultxl := resultxi + altvectarS8[b] 


DII 


end ; 

are{b] :- ( resultxi1 / numofusers ) و‎ 
end ; 
for a t= 1 ta numefalternatives da 


Degin 
ἨΈ (12, at 


La (Tn 


write ( arela ہد‎ 
end : 
END ; 
PROCEDURE COMPUTES 
BEGIN 
for b := 1 tà numafalternatives do 
begir 


resultxi := 1; 
for c :— 1 ta ٦١۱٠٠۷۷٠ ۴ "ج5‎ da 
begin 


altvectar8 := altvectaoer&icl ; 


resultxil = resultxl * altvectarS{(b] 
end 3; 


resultxe στ lw ) vresultxl ) 


5 
ar3fb] := exp ¢ C 


۳۔٥٢۴ ۔ جج تد‎ ¥ presaltxz ) s 
and s 
For a :—- 1 teo  nmnumofalterrnatives dao 
Degin 
πι οι 18. t9 J 
۹۹۷۷ ج‎ ( ar3tal:5s:c ) 3; 
erd 3 
END ; 
PROCEDURE COMFPUTE4 ; 
BEGIN 
for b s= 1 tao rumofalternatives dao 
pegir 
Suma :- Ws 
fon c :— 1 tao nüumocofiusens da 
Deg iri 
ια; := cprdinaltcel-.: 
Suma := suma + riumafalternatives —-  avdinalltb5l] > ; 
end 3 
ar4[b] := suma 3j 
end ; 
for a := 1 teo rvrnmafalterratives da 
begin 


gataexy € 24, 345") 5 
write ( ar4tal ); 
end ; 
END ; 


PROCEDURE COMPUTEORDINAL ; 
BEGIN 


for b s= 1 tae numofaltenrrnatives da 
begir 
suma := 1 


for c := 1 toa ( mumafalternatives ) da 


begin 


if altvectaer8[b] ( altvectar8&lL[cl then 


Suma στ suma + 1 ; 


end ; 
arndinalll[bl :2 suma ; 
end ; 
END ; 
PROCEDURE COMPUTEINDIVIDUALVECTOR ; 
BEGIN 
for al := 1 toa numofalternatives dea 
begir 
suma :- W ; 
for bi := 1 ta ruumncafalternatives do 
begin 
bain 


( solution. Electre. Outrankinglal, bij = 


77) 
SUNA = Suma + 1 


tnay 


°” 
3 


and ; 
ivdividualvectaori[all :- suma ; 
end ; 
ENDE 
PROCEDURE COMPUTEX1 ; 
BEGIN 
far a := 1 to numafalterrnatives da 
begin 
Suma στ 2 ; 
for b στ 1 to nuamorusers da 
begir 
lridividualvecterl1 := irdividaalvecter [bl ; 
Suma = 


suma + individualvectartilCal ; 
end ; 


gataxy Sra) s 
write f suma ) ; 
end 3; 
END ; 


3 


PROCEDURE COMPUTEX2 
REGIN 
far a += 1 to 
begin 
Suma :- uU ; 
fer Sp = | Ge 


a 
x 


mnumafalternatives dc 


viumofiusenrs da 


begin 
individualordinall := individualordinaltbl : 
Suma :- Suma + individualordinalilCal ; 

end ; 


3 
Gataxy CIS, Sta ) - 
write ( suma ) ; 
erd 3 
END : 


3 


leu 


PROCEDURE WIN1 ; 


BEGIN 
lf norm. Broadcasting theri 
begir 
for a :— 1 to numafusers da 
Degin 


ον 60€ 6 * a 4 4 ). 3‏ بات 
write ) usersnameslCal:4 ) ;‏ 
end ;‏ 
Πιο ων € 2,9) 7‏ 
textcalar (red ) :‏ 
rte  'weig.:' ) s‏ 


For a :- 1 to numefusers da 
begin 
εν ΕΚΕ; ΞΟ 
Write) ( weighttalss:c 5 5 
end ; 
vwerecalar ( blue ) ; 
rar a :— 1 to numafaltermatives dac 
begir 


ICKY ( c,a*5 ) ; 
write ( caoapy(altrnamesGLal,1,3) )5j 
end 3; 
for a :- 1 tao rnumofusers da 
begin | 
altvector&a := altvectarélal ; 
for b s= 1 ta numafalternatives dma 
begin 
gataxy ¢ Gers artes. ہے روہ تا‎ 
2 ) 


Write { ۹۹۱۹۷۰۷۶ ۰8ب 6ح۵‎ ٣ 
end 3 
end 5 
end 
65156 
begir 
for a := Í to vumofusers da 
begin 
if ( pruseri1 - usersramestal ) then 
begin 
Booey ) بج‎ , ^4) 3 
write ( usersnameslal:^ ) ; 
یہ‎ f= ἃ و‎ 
erd ; 
erd ; 
fav a := Í toa  numefalternatives da 
begin 


ataky ( B,atS ) 3 

write (copy( altnames6[al,1,3) ); 
end 5 
altvectoar8 :- altvectaorGixxxl ; 
for b :- 1 to rnumofalternatives da 
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begin 
مب مت ا تت‎ ΤΙ ΤΡ, ΤΙΣ 


write ( altveetuondtbDi ΕΕ, 
end 5 
end 3 


END ; 


PROCEDURE WINe ; 
BEGIN 
Window (ΞΕ. 1, 52.16} 3; 
textbackgraund ) 14 ) 3j 
ΕΕ 
textcoalaor ( black ) ; 
Gal Oy ENTS 
write ( ° ardinal ranking ° ) و‎ 
if norm: Braadcastirng ther 


oegin 
fap a os l Ta αμ σσ -ᾱ-- 
begin 


πο σώος << Cea) =e E 
write ( usersnamesfal]:4 ) ; 
end 3 
end 
else 
begin 
gataxy ) 6,4) 3; 
write ( usersmameslxxx] ) 
erd ; 
for a :- 1 tà mnumafusers do 
Degin 
altvectora := altvectarélal ; 
for b :- 1 ta numefalternatives da 
begin 
suma :- 1 3 
for c :- 1 ta ) numafalterratives ) dma 
begin 
if altvecter8[bl ( altvectaraLrcl then 
Suma στ suma + 1 


s 
3 


3 


end 3 
ardinaliCb] := Suna ; 
ord 5 
ΙΣΟ ΙΤΙΔΙ ΓΑ] := ardinall ; 
end ; 
if norm. Broadcasting then 
begin 
for a :s- 1 ta numcofusers da 
begin 


ardinall := aerdinallCal ; 
for b := 1 ta mnumcfalternatives doa 
begir 


pepe ( G xa. DUtS I 
write ( Kmrcdirall[bl >) ; 
end ; 
ers 
eund 


else 
begin 
ardinall 
for D :- 
begin 
ηταν, LE aya D + Š > 3 
3 


:= ordirnal[Cxxx] ; 
1 t5 numofalternatives do 


write ( ardinaliL51 ) 
end ; 
end 3; 
END ; 


FROCEDURE WINS ; 
REGIN 
window (31, 1,3%, 15 ) 
textbackgraund ( white ) ; 
ccce rn 5 
Lex vEGlur.( blackjg.; 
uote» ( 1,2 ). ; 
μμ ° group results * ) ; 
for a :- 1 tao 4 do 
Degir 
goataxy (( 6*a), 4) | 
mite ( "v )2U,a ) s; 
arnad s 
far a := l teo numafalterrnatives dao 
begin 
getoxy ( Syat5 ) و‎ 
write ( copy (altnamesG6Lal,1,3) )7j 
end 5 
if norm. Agregatioan then 
begin 
computeni ; 
computer? ; 
computers ; 
camputer4 و‎ 


end 
else 
begin 
rl s= ας 
repeat 
f 1 = +] + 1 و‎ 
case norm. Agregatioarnmamelfld af 


στα dumnputems 3 
ie se Gin ule oie dees 
14: Computer4 ; 
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37; computers 


end ; 
Wyre bo Sh) = ae 
end 33 


END 


3 


PROCEDURE WIN4 ; 


BEGIN 
if norm. Broadcast irg then 
begin 
for a := Í to rninmafusers de 
begin 
gotexy ο a “ΠΠ; 
write ( usersnamesCal:4 ) ; 
end 3 
Tor a 7= 1 to  rnumaralterrnatives da 
oegin 
gataxy «uL ES 
delete( altnamesóo[al] , 4 , length (altrnamesoli[al?) 
write ( altnamesGtal 25s 
end 3 
for a := 1 te numefusers da 
begin 
irdividualvectaori :- individualvectortal ; 
for b :2 1 to numeofalternatives da 
begin 
qotoxy- ΓΕ aX. 9 ۹٥ 
write (Cindividualvecranl bhi) 
end 5 
end 3 
end 
else 
begir 
far a ξ 1 to numofusers da 
begin 
if ( pruserl = usersnameslCa] ) then 
begir 
Επι ων ( 6 , 4 ) ; 
write ( userznames[al:4^ ) ; 
XXX :Ξ a و‎ 
end ; 
endo 
for a εξ 1 te  rumaofalterrnatives do 
begin 
qotoxw -C zat mE; 
write ( altmameséCal ); 
end 3 


individiualvecteoeri1 5 
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individualvectantxxxl ; 


) 


- 
7 


For b :- 1 ta numofalternatives da 
begin 

٣۰٠٠٠٠٠٠٢ کی‎ έως } © 

write ( individualvectortiLbl >) : 


end 3; 
end ; 
END ; 


PROCEDURE WINS ; 

BEGIN 
window (26, 1, 50, 16 ) ; 
textbackgraund ( 14 ) ; 
ENISED : 
pexvcoreorm ( black ) 3 


αρα ας 


tae oe  αῑπαὶ  ranikink } وا‎ 
if narm. Broadcasting tner 
begin 
far a := 1 tea numafusers da 
begin 


gatoxy € Gea ,4) ; 
delete usersrnamestal , 4 , length (usersnamestaj) ) و‎ 
write ( usersnamesla] η 
end ; 
end 
else 
Degir 
gataxy ( 6,4) ; 
delete (usersrames[xxx], 4 , length (Cusersnameslxxx]) a 
write ( usersnameslxxx ] J 
erid ag 
far a :—- 1 tà numefuserzs da 
begir 
individualvectari := individualvectarlal 5 
for b :=> i to rmnumaofalternatives d 
59 و‎ 
Suma r= 1 3 
f C := 1 ta ( numafalterratives ) da 
begin 
if individualvectarit5] ٤) individualvecteritcl] then 
suma :- Suma +t 1 3 


end 3 
individualerdinallitb] :- suma ; 
end ; 
individualerdinalLal := individualordinall ; 
end ; 


if norm. Broadcasting then 


begin 
for a :- 1 to nunofusers do 
begin 
imndividualordinall s: irndividualordiralLal 3 
for b :- 1 ta mumoefalterratives da 
beq i Yı 
پ رت تو‎ CE EA DE oe eee 
write ( individualaordinalitbJ ) ; 


erd 3 
end ; 
erid 
else 
begin 


imdividualerdinall := individualordinallxxxd ; 


for b := {i ta viumofalternatives dm 
begir 
Dieta 111.7 
write í individual 


} . 


a 


OE‏ 9 "ت۰۲ 


[η 


V 


end ; 
end 3 
END ; 


PROCEDURE WING ; 
BEGIN 
μ1νιείεινν, (1. A. Lc NES 
textbackgreannd ( white >) ; 
1ج‎ 6 3 
exte oc black IS 
πα ον NI s  -- 
_ write ( ’ group results ? ) ; 


1 © SG) s 
wig te-( "pps 
ΕΕ 15.4}. 
arite (Tria 
for a  ἱ τὸ wrumofalternatives dea 


beq iY 
یرت ات5‎ (Sacs ES 
write ( copy (altwames6[al,1, 3) ) 
end ; 
if narm.Agregatian ther 
begin 
computexl1 ; 
computexiz ; 


ag 


end 

else 

begin 
for fi := 1 to 4 do 
begin 


Case norm. Agregaticnmmnamelfid iu 
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11°: eumiput exei 


3 
143 : caomputexz و‎ 
end ; 
end ; 
end ; 


END ; 


PROCEDURE WIN7 ; 
BEGIN 

ανν ( 2,2 ) ; 
πι το C T ordinal ranking ' ) ; 
if norm. Broadcasting then 
begin 

far a := 1 to numafusers da 

begin 

Sea) =a, q) os‏ : مرح 6 دہ 

write i capylusersnameslCajl,1.3) ) 5; 
end ; 
for a := 1 to  numofalterrnatives da 
Degin 

CEY CE AOS 

write 4 copy (altnamesGial,1,3) و(‎ 

end : 
eund 
else 
begir 

Ην ( 6,4) 3; 


write ( usersrnamesLxxx3j ) ; 


erd s 
if neem. Broadcasting then 
begir 
for a :—- 1 to numafusers da 
begin 
ت٣3‎ 117 i: 5۳-816691۲3 ; 
for b :- 1 to numcofalternatives da 
begin 
Bev (€ (Sem ayt+o , Db + Š > Ἡ 
Tile | ardinallCb] > 3 
end ; 
end ; 
end 
else 
begin 


mordinali := ardinallxxx] ; 
for b s= 1 to numofalternatives dea 
begin 
Gemexy ( & . b t 5) 
end ; 
END ; 


° 
3 
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PROCEDURE WING 


BEGIN 
Wwiridow 


textbackgraund 


elrser 


. 
7 


(51,1,80,16 ) ; 


7 


( white ) ; 


textecalar CC ۷٦ 
E 
7 group results ο ) ; 


۷و 
write‏ 
for a‏ 
begin‏ 


06 ۷ 
write 


end 2 
for a 
begin 


gaoataxy 


( 


( 


3 


= 1 ta 4 dao 


( &*a 4) و‎ 
u ٦ 
i to rumcafalternatives dao 


Ce Te 


( capyfaltrnamesGLal,1,3) )j 


if riorm.Hgn^egation ther 


begin 


caoamputeri ; 
computer ; 


end 

else 

begin 
Tor 


end 


end 
end و‎ 
END ; 


. 
3 


f 1 
begin 
case 


:= 1 


ta ^4 ασ 


norm. Agregatianmamelfi J 
a ٥٢٥٥ تد‎ 6٤1 ; 
4^:  computer4 3 


a 
7 


PROCEDURE WINDQOUW1 ; 


BEGIN 
Windaw 


(lee, = 


btextbackgranund 


elrser 


3 


GN 
( blue ) ; 


textcolor ( white ) 3; 


0۷ 
write 
goataoaxy 
write 
806۷ 
write 
Qat ۷ 
write 
gat oxy 


( 


( 


( 


( 


( 


( 


( 


( 


occi) 
NL s 
C. d : 
duse 
424, 2 
IPS 
4121, 3) 
14 : 
SEU 


3 
sum cf ranks } ; 
additive ranking ') ; 


3 
multiplicative ranking 


. 
3 


sum cf cutranking relaticns ’ 


3 
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4 


) 


1 


) 


. 
3 


tewecalar ( red ) ; 
write ( hit ary key ta continue 7 ) 


read ¢ kbd , ch J 


END 


3 


BEGIN (* MAIN *) 
prusenri i= namex و‎ 


rumafalternatives := problema. Numafalternatives 


numafusers :- narm.Numofusers ; 
usersnames := narm. Usersnames ; 
weight :- rorm.Weight ; 

altvectzr6lal := soluticm. Ap. Altvectarl 


altnames®G® := salutian. Alternatives ; 


4 


b  ᾱ ; 
for a :- Í to numafusers da 
begir 

"uzsemrnx στ warm. Usersnameslal 3 


Filmamel := cancat ( sraeblrame,’.’?,Userx 


if exist ( Tfilnamel ) then 
DAS D و‎ 


K 


cauntahp := Ws; 
eatmtelectre := 7 ; 


af 


b 4 numafusers then 


pegir 


CITSE 2 


LE 


4 


) 


4 
s 


writeln ( '"the solutions are not completed ? ) 


end ; 
if b = numefusers ther 
begir 
for a στ l tc ٣٦٣٢٠٢۴۱۱5 وج‎ da 
begir 
userx i= usersnames[al; 


filnameli := ecermcat ( mnrablname,'.*',Usernrx 


priser :- filnamel ; 
if exist ( pruser ) then 
Degir 

readsalutianfile ; 


if ( solution. Ahp. Status ) then 


Degir 
courntahp :- eountahp + 1 ; 


altvectar&G[al :- soluticn.fhp.nültvectori 
altnames6 := saluticn. alternatives 


Altvector8 := altvectoré[a] 
end ; 
if ¢ seluticon. Electre. Status ) 
Degir 


1639 


4 


ther: 


) 


" 
2 


; 


cauntelectre :- ceuntelectre + 1 ; 
ceompiuteindividualvectaon ; 
individualvectorlLal := irdividualvectaril ; 
altnames&®  :- soluticon.dlterrnatives ; 
end 3 
end ; 
end ; 


if countahp = numofusers then 
begin 
for a := 1 to numofusers da 
begin 
altvectar8 := altvecterélal ; 
for b := 1 to numofalterrnatives da 
altvecter8aLbl1 :- altvectaer8Lb5b3 * weighttal ; 
altvectaoaro6Lal :- altvectaorS و‎ 
end و‎ 
μα πάσα ο ας Ὁ 
textbacelkmsesu nd. 5. 
C lise Cero mes 
window ο ο E 
textbackgraund ( 14 ) ; 


ہک خی ہے مو ری 

window (531, 1,80, 16 ) 5j 
textbackgraurd ( white ) ; 
تے تج‎ 5 


>ٴ ) 1,177,875( ت160 
textbackgrcund ( blue ) ;‏ 
GJ Sera,‏ 


window (1, 24,80,23 ) ; 

textbackground ( white ) ; 

ο ΙΕ 

٦6× ۰ت1 پا‎ ۰)۰ 186 Ὁ ; 

iti) aed ys 

write ( ' step S : ceamputation cf granp decision 7 } ; 
pnotexywy Cusen sS 

write ("all the soluticms have computed with ahp 7 ز‎ ; 
window (Crol ea IIS 

textbackgraund ( i4 ) ; 

textcolonr 6 blue ) ; 

cClrser: rs 

80 ۶ ۹" ۹ ٣ 

write ( ' alt. Cardiral rarkirims ' ) ; 


winil ; 

wine 3 

wird 3 

wirndowl ; 
end 2 
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if ceuntelectre = numofusers ther 
begin 
for a :- 1 tao numefusers da 
begir 
altvector8 :2 altvectorGíal ; 
for b :- 1 tà numcofalternatives da 


altvector8aL[b] :- altvectarBarbJ] * weightlal ; 


altvecteróLal :- altvector8 ; 
end ; 


window (1.1, 2 Ww T5 jae 
textbackgraund ( 14 ) ; 
تج‎ ٣۲6 ۳۰۰ 


window ۷096 1, 74,16 ) ;‏ 
textbackgreund ( 14 ) 3;‏ 
یہ چرچ ےچ رح 


ο παν (COI. ος 18... 
textbackgreaund ( white ) ; 
تج‎ 1066 


x s‏ ک2ج.,1..17,80) ہ0۳۰0 
textbackgraund ( blue ) :‏ 


ο ος جو‎ 

window (1,2¢4, 84,25 ) ; 
textbackgraund { white ) 5 
clrsenme > 

text Calor ( Dlack .+ : 
Ην (C S.I) 3 


c 


ινε « step 5 : cemputaticn ef group decisir 7 ) 3 


HO UCM we zi) 5 

write (*all the solutions have computed with 
wimnemwe(l,l,c25.16 ) 3; 

textbackgrannd ) 14 ) 3 

toxvtele"n í blue ) + 

CISC; 

وہ( 02ے پھھو بات ات ت 

τε. salt. Individitial rankings ° J 3 


=: ت1 ٣‏ نات 

for a := 1 
begin 

“userx = wsersnameslad 5 


ta 


Q nunmofusers da 
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Slectre 2 3 


filnamel :- cancat ( prablname,’.’,Userx ) ; 
pruser = filramel ; 5 
readzoluticonfile ; 
if salat izr. Ahp. Status then 
begir 

indexmLal :-7 287 


^ 
countic s= ασ ται 


end 
else 
begin 
if solution. Electre. Status then 
begin 
indexmCa] := ’e’ ; 
countiz i Celine hae! a 
end 
else 
imndexmCad := y? 3 
end ; 
end ; 
iF counti < numerusers then 
Degin | 


windaw ( 1, 1, 880, 253) ; 
60 066 ۸ت1‎ CC ΙΗ; 

οσοι و‎ 

gat axy ( c 3) 3 

tewtcalar ( ہ510“‎ ( ; 

write ('the saluticrns are not completed 7); 


natoxyut us; c pn. 

write ( '* hit any Key ta return ta main menu 7 
read { kbd,ch ) 5 

nota telaosl ; 


end 
else 
begin 
far a: 1 to riumefusers dao 
begin 
if indexmCaj = 'a? then 
begin 


altvecterS := altvectvərélal ; 
far b := 1 ta numofalternatives da 
begir 
suma :7 1 ; 
for c :—- 1 to ( mnumaofalternatives ) da 
begin 
if altvectarg Cb] € altvectar&arcl then 
Suma :- suma + 1 ; 


end 3 
ardinaliCbJ := suma 3 
end ; 


crdinaltal στ ardinall 3 
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B6 


eund 
else 
begin 
imdividualvectorl στ individualvectarrtal 
For b s= 1 tea numafalternatives do 
Degiri 
suma r= Í و‎ 
for C := 1 ta ( numofalterrnatives ) da 
begin 
if individualvectorifb] < 
individualvectorifCcl] ther 
suma I= Suma + 1 : 


end 5 
individualcenrdinalltbl] στ suma ; 
end ; 
ordinala] := imndividualordinall ; 
end 3; 


end 3; 


Dude o 16 >) 3 
textbackgranmd { 14 ) و‎ 
eec we 

۳۶ ‫۰٥ ہبہ‎ (Z6, 1, 30, 16 3 
textbackground ( 14 ) ; 
Closer و‎ 

αν; (slg. 8020.1€6 J τ 
textbackgroaund (0 white ) ς 
οσο 2 

"κεν (1, 17,8023 ) ; 
textbackgraund ( blue ) ; 


CIPSET s 

wirndaw (1, 24,880,253 ) ; 

textbackgrourd ¿ white ) 3j 

Clyse 5 

black — 3‏ ہکرت 61871 6× 6 تا 

πας ELS ٤ 

write (step 5S : camputatian of group decision 7 ) 

LV ( Bc) 5 

writeí('the scoluticns have camputed with eiectre or 
PES s 

Wc ο το θα τς ) s 

textbackgrcund ( 14 ) 1 

textcalar ( blue ) ور‎ 

cii μας 


000 os 
wind ; 
windawl 5 
end ; 
Μπα πρ σος σον ; 


15 


telasl: 
end 3 
END ; 


INCLUDE FILED LETS 


FROCEDURE DIRLIST ; 
TYPE 


Chari2anrr = 
otirirug2 = یپ)‎ 9 6 
RegRec - record 
AX, BEX, CX, DX, BF, SI, 
DI; DS, ES, Flags 


array [ 1. 


ard ; 

VAR 
Regs : RegRec; 
DTA αμα r: 18.43] 
Mask : Charlzarr; 
MarmR 5151۰1۳825 


Enrrnow,lIocIUtese:; 


BEGIN 


F111Char (DTR, SizeOTF (DT') , (ὦ) : 
F111Char (Mask, SizeOf (Mask), ú); 


FillChar (NamR, SizeOf (NamR),) ; 


Wr iteLn; 


WRITELN; 

Regs. AX := $lí3idu; 

Regs. DS := Seg (DTA? ; 
Regs.DX := OFS(DTAD; 
MSDs (Reqs) ; 

Error Tum 

Mash s= ° 29729227. Chere 
Regs.AX :=  $4EUu; 
Regs. DS :- Seg(Mask) ; 
Reqs. DX := Ofs(Mask) ; 
Regs.CX :- zz; 

MSDas (Regs); 

Error := Regs. AX and $FF; 


sla. cef 
1; 


{ 


£ 


e» 


ت٦۶‎ 


Integer; 


af Byte; 


{ Initialize the DTA 
buffer > 
€ Initialize the mask } 
{ Initialize tne file 
mame + 


Functien used to set the DTA ۶ 
stare the parameter segment i” 
DS F 

offset min DX F 

Set DTA lacatien Σ 


Use global search 7 
{ Get first directory entry > 
Paint to the file Mask } 


Store the aptin > 


Execute MWHSDos call > 
Get Error return } 
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IIS I: { 308000 1291143-80 9 1 ta 
element +} 

Jf (Ermer —wA) then 

repeat 

NamRLI2J :-2 Chr (MemtSeg(DTO) :0fs(DTA) -z9-I1) ; 

E UE E 

5:1 Πε )۲[ ۵)1 I= τν cre Jor (1529055 


the first 


NMR EON 7= Crise Det η { set string length because 


assigning +} 


t€ by element does rit 


set length} 
while (Error = 0) de 


begir 
Error := UM 
Regs.AX := ہ٣۶‎ { Function used ta get the 
next + 
یسوی سرج ار جج 6ح 9ے‎ Y 
regs.CX :- =P=; 5: επε fila ا5ت‎ r 
mSDes( Regs );3 {Call MSDS 7; 


Bimmer :— Nens.nX and GFF; { get the Errar return + 


L 3 
repeat 


NamREIJ := Chr (Mem€Seg (DTA) :OFfs (DTA) +29+II) ; 


Ἱ. τω 1: 
irt τ: (MaonRDI-—lilwu3 "dr (I ° 
Mam μμ ΜΕ 1} 
J ΕΕ = ο ΕΝ 
WritelLrn( 7 "T wm. 
end 
END ; 


ο ο ΗΕ FICE FILES 


PROCEDURE OPENFILE ( var  prrname : name ) 3j 


BEGIN 

assign ( problemfile , prname ) τσ 

rewrite ( problemfile ) ; 

with problema da 

begin 
riamel := prname ; 
numafalternatives ; 
rniummofusens :—- uU ; 
levels :-2 uU 3 
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ED; 


fillchar (levell, sizeof (levell),@) 
fillchar (levelé, sizecaf (level 2Z), 4) 
fillchar (level3, sizesf levels) ,@) 
fillchar (level4, sizeof (level4),a) 
fillchar (levels, sizerf (levels), 2) 
Fillchar í(level&6,sizecfílevelo),u) 
Fillchar (1evel7,sizecfí(level7),U) 
fillchar (sublevell, sizecf (sublevell),@) ; 
fillchar (sublevele, sizenf (sublevel2),@) ; 
fillchar (alternatives, sizecf (alternatives), @) ; 

erd 3 

write ( preblemfile , problema ) ; 

close ( problemfile ) 3 

END ; 


WEB «ων ο ABS AE RB AB 


EFROCEDURE OPENSOLUTIONFILE ( var pruser : rame ) 3; 


3 


BEGIN 


assign ( saluticonfile,pruser ) 
rewrite ( solutiontile ) 3; 
with saluticma da 
begin 
ahp.Numoftries  :- uU 
electre.Numcoftries  : 
numafalternatives := 
mumoferiteria := )ا‎ ; 
Ffillchar (ahp. Altvectaril, sizecf (ahp.Altvectari),@) ; 
username i= 7 7 3 
userid = "σα. 
Fillcharfalternatives, sizecrf (alternatives), A) 
fillcharínonmvectari,sizeofí(ncanmvectaori),U) ; 
electre. Status := false ; 
Fillchar(electre. QOutranking, 
sizeof (electre. Outranking),@4) ; 


= 
3 


& d = 
دف‎ Ñ 


3 


end : 
write C solutioaonfile , saluticna ) ; 
clase ( saluticntile ) ; 

ENDE 


PROCEDURE OPENNORMFILE ( va^  nonmname : name ) ; 
BEGIN 
assign ( nermfile ,narmname ὁ} 
rewrite ( naormfile ) 3; 
with norma da 


begir 
۳۱۲٣٣٣۷ ۴ ۱862۳9 := A 3 
madifytimes := A ; 
lastt ime = @ و‎ 
agregat icr := false 3j 
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nai 


:— false 5ς 
specialized :— false ; 
braadcasting := false ; 
madi fy := false ; 


Fillchar (usersnames, sizeof (usersnmames) ,@) ; 
Fillchar (specindex, sizecf (specindex), i); 
fillchar (usersids, sizeof (usersids),@) ; 

Fillchar (weight ,sizecaf (weight), 4) s 
fillchar (currentname,sizeacafí(currerntrname),wu); 


fillchar (agregaticrmame, sizeof (agregaticonname) , 2) ; 


end ; 
write ( narmfile ,rarma ) 5 
close ( normfile ) 3; 

END ; 


PROCEDURE OPENSPECFILE ( var  pruseri : name ) ; 


BEGIN 
assign š specfFile, prusers 7 3 
rewrite ( smecfile ) ; 
with specfilel da 
begir 
۳۱١ت 6۔۴۱‎ 
pfactar := 
qfactonr := ; 
fillchar (vecterl,=sizemnf (vectori), ai); 
fillchar (vector, sizeof (vector), Z) 
fillchar (vector3, sizeof (vectors), 2) 
fillchar (vectar4, sizeof (vectar4), a) 
۲:٦60 و‎ .)۸۶۸66 ۴6 0٣۰55 1 26-1۴۰) ۷665 و( ( 3 خرزت‎ 
fillchar (vectarGo,sizecfí(vectanr6),Ww); 
fillchar (vectar7, sizeof (vectzar7), 4); 
fillchar (narmvectaoanrz,sizeaf(nanrmvectanrz),mu) 
fillchar (nermvectari, sizeof (marmvectari), A) 
Fillchar (nearmindex, sizeaf (marmindex),@) ; 
Fillchar (alternatives, sizecf (alternatives), A) 
fillchar Caltmatrix, SsizeafCaltmatrix),@) و‎ 
fFillehar (gradirg,sirtecf (grading?) 5 
mumaForiteria := ñ 5 
ruumcfalternativez :- ἆ 3 
hore a جع‎ 1 to 3 da 
begin 


“ 
4 


I & ss 


3 
“S 
9 
a 
3 
a 
3 
3 


. 
3 
" 
3 


aa 


sSolved[al :-7 false ; 
finalindextal :-» false ; 
finalindexl1Lal := false ; 
erd ; 
completed := false ; 
campletedall := false ; 
ahp.status := false ; 
Fillchar(ahp. altvectorti, sizecnf(ahp. altvectari),@ ; 


5 


Ju 


ahp.numaftries :- @ ; 
electre.status :- false ; 
electre.rnumaftries := A ; 


FPrlichar (elect rmeisutranking, o1 fon 8 ΕΟΟ ΡΕ ۵ی۳۷‎ : 
[Enc - ` 
write ( specfile , specfilel ) ; 
clase ( specfile ) ;j 
ENDO 


INCLUDE Ei Beier Bees 
PROCEDURE DISKDATA 5 
BEGIN 
repeat 
یہ‎ 1۳۲٥2" ا“‎ ΠΕ TS 


۰۰٢٢٢٣" (€ oalue )‏ 5چ >+اے خط5 ×٤‏ < ت 
5Ο τ‏ 


`. 


window (41,1,80,12) ; 
textbackground ( blue ) ; 
ο σενα, 


window (152p Um c =. 
textbackgraund ( 14.) : 
elrcer en 


windew € ds. gm D = 

textbackgranund (0 white ) 3; 

c lr ser p 

textceols 0 o : 

gatokxy '' 

Write ( steve 

ποσα ΥΕ ο 

write ( ° files related τε the prablem ? ) ; 


ει (Cl; 1, 12) ; 

textbackgrannd ( blue ) ; 

textcoler ( white ) ; 

ت و 

write ({ 7 names cof problems : ? ) : 
dirlista ; 


window (41i, 1,80, 12) ; 
textbackgnround ( blue ) ; 
textcalar ( white ) 3 

Hcc dc M 

write ( * mames of norm : ? ) ; 


(8 


uult و‎ 


ΠΕΙ (1; T3780, 23) 1 
textbackgraund ( 14 ) ; 
ne»xvesluop (€ black ) : 
πεν ( 3,2) s 
wr ite('da yau want to see a predefined norm (y/n) ? ?)7j 
EE Jes yl <= 2 و‎ 
identify ( answenr,xl,yl ) ; 
if answer = 'y!' then 
begin 
Mime S + yl τπτ 3 3 
riciamselectian (xl, ¥1) ; 
displayncocrrm ; 
end ; 
umtil answer = "r? ; 
ιν σολ. 5 
r2peat 
IES tg La ο τω, 3 
textbackgroaund ( Blue ) 
eur ser 5 


wd 


wirı daw (4l, 1,0,12) ; 
textbackgrzurıd ( blue ) ; 
ΕΤ 5ΞΕν : 


image «tale. SY), و رت2‎ 
texthackgraund ( 14 ) ; 
تج ہاج‎ s 


Window ( 1, 24, 80,25) j 

textbackgraund ( white ) ; 

ΕΗ ον 

black ) ;‏ ( 1تح 6بر 

Di l ο τ 2.1) ; 

το 6€ Stringles ) ; 

y s‏ روم دہ 

write ( ' files related tao the problem ’ ) ; 


window (1,14,40,12) ; 
textbackground ( blue ) : 
presion ( white ) 5 

Επ ( = ë) ; 

write ( ' names of problems : ? ) 
απ ο τετ ; 

window (41, 1, 80, 12) ; 
textbackgroaund ( blue ) ; 
textcoalor ( white ) ; 


a 


و کے یں رت٥‏ ت8 
write ( ' names af marin 200 2E‏ 


Eri 


1 


επ 15Ε 1. 
window tl, Ii, CM ES) 
textbackgranund ( 14 ) 
textcalarm” { black ) ; 
6ت ت3‎ ο ολ - 
write(’da you want to see a predefined problem (y/n) ?'j; 
Al = 56 cale ee 
identify ( answer, xil,yi ) 3 
if answer = 'y?' then 
begin 
πεν ) 3,3) ; 
repeat 
clreal ; 
write ( ' name of problem ? °? 
Read ( answer ) ور‎ 
answer i= stupcase ( answer ) ; 
answer 1= comncat ( answer,’.7’,7Def’) 3 
until ( exist ( answer ))37 
Drame i= answer ; 
readprablemfile ; 


`. 


^ 
db 


windaw (1,1,84,7 ) 3 
textbackgreaund { blue ) ; 


Cr SCO re 
textcolor ) white ) ; 
GS τ᾽, ΤΠ 
write ( "name cof problem : ?, prceblem.Namei } ; 
800 ۷۷ ( a s ) 3 
write ( alternatives : ? ) 2 
for a := 1 to prablem. Numofalternatives da 
begir 
ب یرت 0ات8‎ ۱۷۹ 2, 
write ( prablem. AlterrativesLal ) ; 
erd ; 
window {719,80,23 ) ; 
textbackgrcund ( blue ) 3 
(C l ser s: 
cGy as pees 
Write € eri teri ages a 
display ( prablem ) 
neben ۰ ΤΕ 
ت1 تت 0 رت‎ ο κα ο 5 
write ( hit arny key to continue?" ) 7 
"ead í kbd ch ) ; 
textcalar ( white ) 3 
end ; 
until answer = r" 2 


~ وم 


END ; 
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PROCEDURE DIS 


BEGIN 
diskdata ; 
ENDIE; 


KSTATUS ; 


PROCEDURE REA 


BEGIN 
repeat 
ب×ت بات8‎ t 
ات5۳۰6‎ ; 
write (7 
Read ( an 
zpecname 
delete ( 
ιν ιαπ c= 
۵ء۲ تا تن‎ 


ite oxi St 


DIT; 


٥۶‏ یت 


the name a 
swer ) 3 
s= comcat 


END ; 
PROCEDURE REA 
BEGIN 
repeat 
gotoxy { 


pem. 

write (? 

Read ( an 

delete ( 

answer i= 

ricrnminame 
until exist 

END 5 


PROCEDURE REA 


BEGIN 
faery ( Ἐν 
τε (" y 


Ea s= fa 
repeat 
notexy { 


Ceol : 
read { mna 


Yiamex = 
for a := 
begin 

if mame 


f the problem  ? 


( answer,” . Spc?) 


answer ,&, length( answer) ) 
Savcat Ὡς ο ορ yas 
:7 Ar zwer 

(Dnrriame ) 3j 

n. 

ο ον... 

the name af the norm ? E. 

swer ) 5 

answer «δ. length! answer) ) 
stupcase ¢ answer ) 3j 

z= crzrıcat ( answer, .Gr' ); 
(riormname ) 3 

09-٤ 

ELE ٦۶ 

lm name 3 E 

lse ; 

Dre وس‎ 

mex ) 3 

stupcase ( namex ) : 

1 to  norm.Numoefusers da 

x = norm. UsersnameslLal then 


errar = true 


end s; 
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3 


until Error ) 3 
b := A ; 


repeat 

GE sS‏ ت3 
uritil ( namex = nmaorvm.Usenrsnames[21 ) ;‏ 
str (D; inte) 5;‏ 
answer i= camcat ( ?*.",NMamex ) 3‏ 
pruser :- concat ( prablname,arnswer) ;‏ 
prasers :- concat ( preblrname,’.spc’) 3;‏ 

END 5 


PROCEDURE READ4 ; 
BEGIN 
οζ΄ ا د‎ 
wile CTT αι. QS 
1 C arm. UsersidslDl]l = "1x? ) then 
0ات‎ 1 
poto "OPEM 
read ( idx) 3 
idx := stupcase ) idx ) 5 
norm. Usersids(€b] := idx ; 


-ți 


t 
E 


end 
else 
Degin 
repeat 
netoxv C169) 5 
clreal; 
read (idx ) 3; 
idx := stupease ( idx ) ; 
until ( idx = nerm. Usersids[b] ) ; 
end 3 
END ; 


EROCEDOUPETR ADTT: 
BEGIN 
notos MEC c DIEM: 
write ©? the method that you want to use ? °? ) ; 
Repeat 
ھب رت ںاہ و‎ UE 
clrecl; 
read (methadx ) ; 
methadx := stupcase ( methadx ) و‎ 
mMmitil (( methedx = ’ahp’?) ar ( methadx = ’electre’ ) 
mam € methadx = direct?) ys 
END ; 
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PROCEDURE DATA ; 

BEGIN 
wirndcow1,:i24,80,22); 
textbackgrournd white) ; 
٢×] ت1ت‎ ( black ) ; 


Een I) $ 
El el ; 
write ( strirglica ) ; 
ωσ ον ση ο 3 
write ( stringi1z9 ); 
ποσο €-1,135,84,23) ; 
textbBbackgroannd ( 14 ); 
جرح حےح  تج‎ ; 
readl ; 
reade s 
readrarmfile ; 
reads ; 
read4 : 

END ος 


INCLUDE FILE PROCED 


FUNCTION STUPCASE (st : name 
VAR 
I : integer ; 


BEGIN 
mar II tes lewvgpth(st) d 
st[1J := upcecase(st lil 
stupease := st ; 
END ; 


) : name 3 


Jes 


FUNCTION EXIST (filename : name ) : 


VAR 
N files 
BEGIN 
assign ( fil , filename ) 
راس نت‎ 
reset ( fil ) 3; 
ΙΤ; 
exist :- ( ioresult ΞΔ) 
END ; 


PROCEDURE WAIT ; 

BEGIN 
qotoxy (SA, Z4); write *hit 
read (kbd, ch) 

END- ; 


any key 
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bomalean ; 


to caontirnue 


3 


) 3 


FROCEDURE CLEARI ( var problem : casel ) ; 
BEGIN 
For A =] to o do 
prablem. LeveliľCa] := ? : 


END; 
PROCEDURE CLEARSCREEN (var line : integer ) ; 
BEGIN 

if line = 19 then 

begir 


gotoxy (1,4) ; 

for e εξ 1 ta ið do 
dellire ; 

line := 9 ; 


end 3 
END ; 
PROCEDURE “Chai UE SUE matmrixz : level ) 2 
BEGIN 

far line :- 1 to 3S do 

begir 


far aris Pleo απ 
matrixcztline,al] := °? °? 
end 
END ; 


FROCEDURE CONVERT (var answerz : ask ;var w,dl : integer ) ; 
BEGIN 
if ( arnswerz[wl1 (> 717) and ( answercLlwl1 O 727) 


ard ( answerzLlwl1 (> 13?) ard ( arisaerz [w] (> 747) 
arid ( answenczLwl1 <> ° 37 ) 
ther 
di := uU 3 
Case ariswerd Cw] ΞΡ 
ΕΠ, ΞΖ; 
rera Cl A RE 
σος di 300< 
ο. di :- 4 و‎ 
707707 611170000 S 
end ς 
END 5; 


PROCEDURE IDENTIFY ( var answer : mame 5; var xi,yi 
integer ) ; BEGIN 
repeat 
ην... 17. 
clreal ; 
read ( arswer ) 5 
answer i= stupcase ( answer ) ; 
uritil ( ( answer = 'y?) ar ( answer = r?) ) 5 
END = 
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PROCEDURE CHECKNUMBER « 


var 
var 
BEGIN 
repeat 
Burr u (C ocio wl) ` 


εἴτα] s 


read ( answer ) 3; 
val ( arnswer,caunt3,codel) 
until ((ccadel = 4) and(caountza3 

END ; 

EFEROCEDURE SORT1 ( var naormvectaoenrl : 
Var rnonrmvectornrz : 
var 

BEGIN 

repeat 


Ες is Ὁ; 
for a i= d 
begin 
if normvectar2lal 
begir 
excharngezLal] := 
moaprivectiapelal : 
٣٣١٢٠۷ +-ج] ت۲ت .2ج‎ 13 : 
exchangeital :- 
riprmvectenital :- 
mapmvectart Catid 


cut :-ccumt v I 
end ; 
end; 
ا٤11‎ count = Ws 
END ; 


BEGIN 
assigri ( 


۳۰٠٣٢٢٣ 112 )و‎ ۳۰٣۳۹6 


reset ( norvmfile ) ; 
MIN :— morm Gg 
write ( nueurmftile ,rnonhma ) 3 


clase 
END ; 


Cx mtile- ; 


ο ρα Ε URITEPROBLEMFETIE 5 
BEGIN 
assign ( prablemfile 9, 
reset ( prablemfile ) ; 


Vcr" arisSswernpnr i 
x Lo l; lli oa: 
courta : 


μη σι Το Ἱτθι ία ἃ : 


to munonFoeriteria 


( rncrnmvectamrzba-1ll 


name 3 
integer ; 
real PAoa 


; 
(= limit) ard (οσο »- 0)) 1 


vectearg ; 
vectaorn ; 
integer ) ; 


d ا١‎ 


then 


marmvectarelal 3 

= nuormvectarzLat-il ; 
= exchangeclal ; 
riarnmvectanrcital ; 
۳٠٢٢٠٢ ل11+-ھ] 1تح‎ ; 
:= excharngelladl ; 


) š 


prmame ) 3 
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pr^acablema :- problem ; 
write ( prablemfile, preblema ) ; 
Clase ( prablemfile ) ; 

END ; 


PROCEDURE READE RGELEMEILE ; 

BEGIN 
assign ( problemfile , prname ) 5; 
reset ( problemfile ) ; 


read ( prablemfile , prablema ) ; 
problem :- prablema ; 
close ( problemfile ) ; 

END ; 


Επ ΕΙ ΡΕ RERDNMERMEUNLE - 
SEGIN 
assign ( marmfile , rnormname ) 3 
reset ¢ marmfile ) 3j 
read ( narmfile , norma ) 5 
parm o i= norma 3 
close ( mormfile و ا‎ 
END ; 


PROCEDURE ۲۲۴۱۲۳۷۵ (فانا‎ ۰ 6 ۳۲ 

BEGIN 
assign ( salutionfile , pruser ) ; 
reset ( salutiaonfile ) ; 
read ( solutionfile , geclutior ) ; 
Salutiarn :- soluticona 5 
close ( saolutionfile ) ; 

END ; 


PROCEDURE ο Έτ. ί Ὁ 

BEGIN 
assign ( specfile , pruser3 ) ; 
reset ( specfile ) ; 
read ( specftile , specfilel ) ; 
specfilecz :- specfilei : 
clase ( specfile ) ; 

END ; 
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ο ΟΕΕ WRITESOLUTIGONMFILE s 

BEGIN 
assign ( solutionfile , prusenr ) 53 
reset ( scolutienrile ) 5 


Soluticrna :- scoluticn 5 
write (salutienfile, saluticana ) 5 
close ( solutionfile ) 3 

END ; 


ENSBCEDURE* ANITESGPEELILE.::; 

BEGIN 
assign ( specfile , pruser3 ) 5 
reset ( specfile ) ; 
specfilei :- specfilec ; 
write íspecfile,specfilel ) 3 
close ( zpecfile ) 

END 5 
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APPENDIX E 
FIGURES OF δα κ ο. 







NAME OF THE GROUP NORM ? select frigates 





|1. IDENTIFICATION OF GROUP MEMBERS 


- Nase of user for criteria ECONOMICAL : users 
2.3 Autowatic Selection of Techniques of 
| Aggregation of Preference (Y/N) ) y 
| 2.3 Automatic Computation of NAI (Y/N) ? y 
3. INFORMATION EXCHANGE 
3.1 Broadcasting of individual outputs (Y/N) ? y 


1.1 Number of Group Members ( MAX 3 ) ? 3 
- Name of Member # 1 ? userl 
- Name of Member 32 ? user? 
- Name of Member 3 3 ? users 
| L2 ID of Member Al ? xi 
| 2 GROUP DECISION TECHNICUES 
| | 2.1 Weighted Majority Rule : 
| | - EGUAL Weights (Y/N) 2 y 
| | 2.2 Collective Evaluation Hade 
| Choose one of the two modes : 
(1) Each group member will evaluate alternatives 
according to all criteria 
(2) Each group member will evaluate only alternatives 
according to his exclusive area of expertise 
Enter selection? 2 
- Name of user for criteria WEAPONS |: user! 
- Name of user for criteria ELECTRONICS : user2 
- Name of user for criteria ENBINE : users 





3.¢ Permission to Modify Individual Analyses 


| AFTER Group analyses (Y/N) 3 y 
| 3.2.1 How Mary Times (MAX 18 ) 8 
3.3 Time Limit to Submit Individuals Resuits : 
3.3.1 How Many Days (MAX 14 ) T 
3.3.2 Hours ( 1:09 to 24:80 ) ? 13:00 


| 
| 
| 
| 
| 
x 
The name of the nroblem ? ships | 
| 
| 
| 
| 
| 
| 
| 
| 





| STEP 2 : GROUP NORM DEFINITION 





Figure 4. Group Norm Definition 
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— ο μι GENE — — — 3 Al 
ENTM" cus. کت‎ C | 
NAME OF PROBLEM : 


| 
SHIPS i 
ENTER THE ALTERNATIVES ; 1. type 1 
2. type 2 
3. type 3 
4. Q 
ENTER THE CRITERIA : | 
1. weapons | 
1.1 air-crafts | 
1.2 guns 
1.3 missiles | 
1.3.1 ssm | 


$ 


1.3.20 sam 
1.4 a/s weapons 
2. electronics 
2,1 radar 


t —H «MÀ — وم می‎ 


EE e ITE worn’ 


surveillance 


| 
| 
1 | 
fire control 
| 
| 
| 
| 


ro ro fw 


oi. 
2.1. 
ol. 


CJ TO — 


navigation 
2.2 sonar 
3. engine 
3.1 performance 
3.2 maihtance 
4. cost related 
4,1 technical support 
4,2 life cycle 
4.3 cost of operation 
| 


SS I y Y — a — + í í í + — —n o m a Ña 9‪ “a 


4,4 cost 


ISTEP 1 : MULTIPLE CRITERIA GROUP PROBLEM DEFINITION 
Definition of criteria * 1)st level 2)nd level 3)nd level 3)uit 


—————»————————22—€—X———————— 





————————————————————————————————————————— — 


Figure. 5. Step 1 Group Problem Definiticn 
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SHIPS. DEF NORMSH. GN 


| THE NAME OF THE PROBLEM + shins 
| 
| 


YOUR NAME ? useri 


i 
| 
THE NAME OF THE NORM ? — nor«sh | 
YOUR ID? xi 


THE METHOD THAT YOU WANT TO USE ? ahp 


STEP. 3 : PRIORITIZATION OF EVALUATION CRITERIA 
Identification of the problem Methods : AHP or DIRECT 


NAMES OF PROBLEMS : NAMES OF NORM 
| 





Figure & User 1 / FPrablem Initiation 


1 32 


Figure 7. User 1 / Fricritizaticon of Evaluatian 














PATRWISE COMPARISON PRIORITY VECTOR 


WEAPO ELECT ENGIN ECONO 












WEAPO 1.20 2.88 2.50 WEAPONS ð. 366 
ELECTRONICS 0. 5 

ENGIN 0.50 2.51 1. 30 ENGINE 9. 183 
0. 42 ECONOMICAL 2.146 


| ٭٭‎ LAMDA HAX Ust 
| CONSISTENCY INDEX = 3.39 
| SRNDCMIZED INDEX — 7 3.5 
| = 0.39 


i | CCNSISTENCY RRTIO 


| 
| 
| 
| 
| 
WEA ELE ENG ECO 
| 
l 


9.37 9.39 0.18 δ. 14 
DO YOU WANT TO MODIFY THE EVALUATION OF THE CRITERIA (Y/N) ? 





[STEP 3 : PRIORITIZATION OF EVALUATION CRITERIA 
Method : AHP 


at the First Level 
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Criteria 





AIR-C GUNS 
AIR-C 1.78 
GUNS 0.59 
MISSI 0.43 1.88 
A/SW @.83 ۵ 


MISSI 
1.20 
0. 56 


9.91 


A/S W 
1.22 
8.09 
1.10 


PRIORITY VECTOR 


ATR-CRAFTS 


GUNS 


MISSILES 


A/S WEAPONS 


9. 307 
8. 181 
δ, 556 


0. ὃς 





JOB 


AIR MIS A/S GUN 
@. 58 0.23 0.25 0.18 
DO YOU WANT TO MODIFY THE EVALUATION OF THE CRITERIA (Y/N) ? 


ہے و د یچھ س ص wwwrr‏ 





| 
i 
[PAIRWISE COMPARISON 
x 
| 
| 
| 
| 


LAMDA MAX 

CONSISTENSY INDEX 
RANDOMIZED .ADEX 
CONSISTENCY RATIO 


STEP 3 : PRIORITIZATION OF EVALUATION CRITERIA 


| Method : AHP | 





Figure & User 1 م۸‎ Pricritizatwon of evaluat iar 


at Level Pir UDILDLBPIASPEC 


L 


ت9 


Criteria 


1.4 





SoM SAM 
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|STEP 3 : PRIORITIZATICN OF EVALUATION CRITERIA 
Direct input of criteria weights 
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DO YOU WANT TO MODIFY THE EVALUATION OF THE CRITERIA (Y/N) 7 | 

STEP 3 : PRIORITIZATION OF EVALUATION CRITERIA 

Direct input of criteria weights 


10. User z / Prioritization of Evaluation Criteria 
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| STEP 3: PRIORITIZATION OF EVALUATION CRITERIA | 


‘Direct input of criteria weights i 
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Figure ic. User 2 / Frieritizaticn af Evaluaticu oM en 
at Level 3 for Criteria z.1.1 ta 2.1.3 
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STEP 3 : PRIORITIZATION OF EVALUATION CRITERIA 


Direct input of criteria weights | 
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STEP 3 : PRIORITIZATION OF EVALUATION CRITERIA 
Direct input of criteria weights 
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Figure i3. User 3 / Prioritization GT Evaluaticon Criteria 
at Level 1 
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STEP 3 : PRIORITIZATION OF EVALUATION CRITERIA 
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Figure 15. User 3 / Frioritizatiaon af Evaluation Criteria at 
Level zz far Criteria 4.1 Ta 4.4 
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STEP 3 : PRIORITIZATION OF EVALUATION CRITERIA 
Determine the number of the criteria 
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THE FINAL CRITERIA ( 5) AND THEIR WEIGHTS ARE : 
1. SONAR ; 0,32 
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3. A/S WEAPONS : δ.13 
4, MAINTANCE : 0,13 
9. 13 
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STEP 3 : PRIORITIZATION OF EVALUATION CRITERIA 
Determine the number of the criteria 


Figure 17. The Reduced Set af Criteria 
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STEP 4 : INDIVIDUAL EVALUATION OF ALTERNATIVES 
Evaluation of alternatives According to Criterion SONAR AHP 
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Figure 18. User ¢ / Evaluation af the Alternatives According 
ta Criteria Senar (AHP) 
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PRIRWISE COMPRRISON PRIORITY VECTOR 
TYP! ΤΡ 
TYP2 0.83 9. 77 


IPS 1. 0 1.20 


1 1.28 83 
| 
IES an 


+* LAMDA MAX 
CONSISTENCY INDEX 


3. 38 
à. 00 
RANDOMIZED INDEX = 9.58 


| 0.40 0. 33 0.27 DO YOU WANT TO MODIFY THE DATA (Y/N) ? | 
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Evaluation of Alternatives According to Criterion AIR-CRAFTS AHP 
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Figure 19. User i / Evaluation of Alternatives According to 
Ceiterian Air-Crafts (AHF) 
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STEP 4 : INDIVIDUAL EVALUATION OF ALTERNATIVES 
Evaluation of Alternatives According to criterion GUNS AHP 
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| TYPE 1.19 1.00 | TYPE 234 0. 344 
TPE 110 1.08 | TYPE 1.2.3 0.344 | 
||" 
| | = 
x . | 
| | ! | 
| | | | 
| t+ LAMDA 81 = 3,20 | | 
CONSISTENCY INDEX - -8.30 | 
RANDOMIZED INDEX = 0.58 | 
CONSISTENCY RATIO = -3.00 x 
JUL EM 

| 

| | | 
| TYP TYP Τρ | | 
0.34 8.34 0.31 DO YOU WANT TO MODIFY THE DATA (Y/N) 2 | 
| 
| 
| 





Figure ža. User 1 / Evaluation of Alternatives Accarding to 
Criteria Guns (CAHF) 










ALTERN. EVALUATION : WORKING AREA PRIORITY VECTOR 
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STEP 4 : INDIVIDUAL EVALUATION OF ALTERNATIVES 
Direct input 
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ALTERN. EVALUATION : WORKING AREA PRIORITY VECTOR 
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STEP 4 : INDIVIDUAL EVALUATION OF ALTERNATIVES 
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Figure cc. User 1 / Evaluation of alternatives According ti 
Criterian Mairrtanee (DIRECT) 
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STEP 6 : COMPUTATION OF GROUP DECISION | 


Final Result ( AHP ) - Specializes mode | 





Figure 23. Final Group Solution af the Prablem 
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NAME OF THE GROUP NORM ? selecti 


1. IDENTIFICATION OF GROUP MEMBERS 


1.1 Number of Group Members ( MAX 3 ) UP d 
- Name of Member ἃ ἱ ? useri 
- Name of Member #2 ? user? 
- Name of Member 3 3 ? user3 
1.2 ID of Member USERI ? xi 
2. GROUP DECISION TECHNIQUES 
2.1 Weighted Majority Rule : 
- ERUAL Weights (Y/N) ? n 
- WEIGHT for USERI S 
- WEIGHT for USER2 7 à 
- WEIGHT for USERS ? 4 


| 
| 
| 
| 
2.2 Collective Evaluation Mode 
| - Choose one of the following modes : 
(1) Each group member will evaluate alternatives 
according to all criteria 
(2) Each group member will evaluate only criteria 
according to his exclusive area of his expertise 
Enter a number 7 1 
2.3 Rutomatic Selection of Techniques of 
Aggregation of Preference (Y/N) 
2.4 Automatic Computation of NAI (Y/N) | 
3. INFORMATION EXCHANGE | 
| 
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e3 23 


| 3.1 Broadcasting of individual outputs (Y/N) ? y 
| 3.2 Permission to Modify Individual Analyses 
| AFTER Group analyses (Y/N) ? y 









3.2.1 How Many Times (MAX 10 ) ? 4 
3.3 Time Limit to Submit Individuals Results : 
3.3.1 How Many Days (MAX 14 ) ? 7 


3.3.2 Hours ( 1:99 to 24:20 ) 


STEP 2 : GROUP NORM DEFINITION 


Figure 24. Group Norm Definition 
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e. type 2 
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4. q 
ENTER THE CRITERIA | 
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2. electronics 
3. engine 
4. cost related 
9. q 


: MULTIPLE CRITERIA GROUP PROBLEM DEFINITICN 


Definition of criteria * 1)st level 2)nd level 3)nd level @)uit 


Figure ZS. i Group Problem Definition 








THE NAME OF THE PROBLEM ? select 
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THE NAME CF THE NORM ? selecti 







YOUR ID ? x1 


THE METHOD THAT YOU WANT TO USE 


| 
YOUR NAME ? useri 
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STEP 3 : PRIORITIZATION OF EVALUATION CRITERIA 
Identification of the oroblem Methods : AHP or DIRECT 


Figure ¢6. User 1 / Frablem Initiaticn 





PAIRWISE COMPARISON | PRICRITY VECTOR 


WEAPO ELECT ENGIN COST 


WEAPO 1.00 1. 68 |. 99 WEAPONS δ. 317 
ELECT 1.00 1.68 1. 90 ELECTRONICS 0. 317 | 
ENGIN 8.63 0.63 1. 40 ENGINE 0. 138 | 
COST 0. 53 0. 53 0. 71 COST RELATED 9. 167 | 
€x LAMBDA MAX = 4,31 
CONSISTENCY INDEX = 2.20 
x RANDOMIZED INDEX = 8.20 
= 9.38 


| | CONSISTENCY RATIO 


WEA ELE ENG COS 
| 0.32 8.32 98,20 7 
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STEP 3 : PRIORITIZATION OF EVALUATION 
Method : AHP 
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Figure 27. User 1 / Prioritization of Evaluation Criteria (AHF) 





THE FINAL CRITERIA ( 4) AND THEIR WEIGHTS ARE 









STEP 3 : PRIORITIZATION OF EVALUATION CRITERIA 
Determine the number of the criteria 
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2. ELECTRONICS UN ec 
3. ENGINE : 6.20 
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x Fg 
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THE FINAL CRITERIA ( 3) AND THEIR WEIGHTS ARE 


1, WEAPONS : 8.38 
2. ELECTRONICS : 0.38 
3. ENGINE : 0. 25 


DO YOU WANT TO CHANGE THE NUMBER OF THE CRITERIA (Y/N) ۶ 


STEP 3 : PRIORITIZATION OF EVALUATION CRITERIA 
Determine the number of the criteria 
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ALTERN. EVALUATION : WORKING AREA PRIORITY VECTOR 


TYP TYP TYP 
WEA — 9.00 7.00 3.00 TYPE 1 9. 32 
ELE — 3.00 3.00 7.00 TYPE 2 9. 32 
ENG 8.00 8.00 9 TYPE 3 9. 36 


TYP TYP TYP 


0. 32 9. 32 9. 56 Do you want to modify the weights (Y/N) ? 
hen 4 : INDIVIDUAL EVALUATION OF ALTERNATIVES 


Method used : Direct Input | 
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Figure 34. User i / Individual Evaluation af Alternatives Using 
Direct made 





FINAL SOLUTION 
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ΠΗ 
ΤΥΡ TYP TYP 
0.34 8.33 0. 33 
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STEP 4 : INDIVIDUAL EVALUATION OF ALTERNATIVES 


= Result | 





Figure 31. Salutien of User 1 ( With Direct Made ) 
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ALTERN. EVALUATION : WORKING AREA GRADING SCALE 


WEA ELE ENG WEA ELE ENG 
TYP 28 39 21 
TYP 31 31 16 Exce 38 38 24 
Good 29 29 18 
Aver 19 19 12 
Fair 18 10 6 
Weak Q Q Q 


P= 3.00% @= 355.0 X | 


MENU 


1. CONCORDANCE MATRIX 
2. DISCORDANCE MATRIX 
3. QUTRANKING MATRIX 
4. MODIFY THRESHOLDS 
5. EXIT ELECTRE 


SELECTION (1-5) ? 


| 
| 
TYP 32 39 18 Weig.: 38 38 24 
x 
x 
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STEP 4 : EVALUATION OF ALTERNATIVES 
Method used : ELECTRE 





Figure Se. User 1 / Evaluation of Alternatives Using Electre 
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CONCORDANCE MATRIX ×۴ A Concordance index indicates to 

TYP TYP TYP #I | what extent an option is better than 
TP - 7% & e another in terms of criteria weights 
Wee 6G - | ## The index varies between [ @ - {00 j 
TP 38 76 - 1 the higher the better . 


4 indexes are) = 55 
# Column 851 indicates the ἡ οἵ indexes 
satisfying P for each option 


6 indexes are ( = 55.99 ۱ 
++. Colum #CI indicates the # of indexes 
satisfying Ü for each option 


DISCORDANCE MATRIX ## 9 Discordance index indicates to 

| TYP TYP TYP 801 what extent an option contains a bad | 

| Bp  α element that makes it un-satisfactory | 

| TYP li - 8 2 t€ The index varies between [QÛ = i00 | 

EnPL S Uus - e the lower the better . | 
| 
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QUTRANKING MATRIX ## An Outranking relation # is the 
TYP TYP TYP one that satisfies both concordance | 
ΤΥΡ - * + and discordance requirements. 
TYP £ - - ^ fm - indicates that there is 
MP Sy a no outranking relations. 


STEP 4 : EVALUATION OF ALTERNATIVES 


Method used : ELECTRE 
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Figure 33. User 1 / Ceamncardarnce, Discerdance, Outranking Matrix 


TYP TYP TYP 
WEA 7.00 5.00 6.00 TYPE | 0. 30 
ELE 7.00 8.00 5.00 TYPE 2 0.39 
ENG 7.00 9.00 7.00 TYPE 3 9. 30 


ALTERN. EVALUATION : WORKING AREA PRIORITY VECTOR | 
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0. 30 3.39 0. 3 Do you want to modify the weights (Y/N) ? 
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Figure 34. User2 / Individual Evaluation af Alternatives Using 
Direct Made 
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FINAL SOLUTION 
| 
x 


HIT ñNY KEY TO CONTINUE 








STEP 4 : INDIVIDUAL EVALUATION OF ALTERNATIVES 
Final Result 
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Figure 35. Solution of User = ( With Direct Made ) 





ALTERN. EVALUATION : WORKING AREA GRADING SCALE 


TYP 31 29 16 Weig.: 38 38 24 
TYP 27 32 22 
TYP 39 25 17 Exce 38 38 24 


Good 29 29 18 
Aver 19 19 12 
Fair 109 10 6 
Weak آ3‎ ἡ Q9 
| P= 55.08% 0 = 55.00 x 


| MENU 
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Figure 36. User 2 / Evaluation of Alternatives Using Electre 
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CONCORDANCE MATRIX 
TYP TYP TYP #CI 
TP - 38 76 | 
WP- & - δῦ ο 
TYP 24 38 - ϐ 
TYP TYP TYP #DI 
Dew "6. ὦν 
pp» — 1] -8 2 
Pe tis) = 2 


QUTRRNKING MATRIX 


TYP TYP TYP 
TP - - in 
TP * = & 
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HIT ANY KEY TO CONTINUE 


STEP 4 : EVALUATION OF ALTERNATIVES 


Method used : ELECTRE 


via... 


ἘΚ A Concordance index indicates to 


what extent an option is better than 
another in terms of criteria weights 
The index varies between ( 9 - 103 ] 
the higher the better . | 
3 indexes are) = 3% 

Column #CI indicates the # of indexes 
Satisfying P for each option 


A Discordance index indicates to . 

what extent an option contains a bad 
element that makes it un-satisftactory | 
The index varies between [ 3 - 120] | 
the lower the better . | 
6 indexes are (= 55.00 

Colum #CI indicates the # of indexes 
satisfying @ for each option 
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fm Üutranking relation * is the | 
one that satisfies both concordance | 
and discordance requirements. | 
An - indicates that there is | 
| 
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no outranking relations. 
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Figure 37. User iz / Cancerdance, Discardance, Qutrarnking Matrix 
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ALTERN. EVALUATION : WORKING AREA 


TYP TYP TYP 
WEA — 8.09 6.00 6.00 
ELE — 7.00 3.09 4.00 
ENG 6.00 3.00 7.00 


DLL 


TYP TYP TYP 
0.27 0.41 @. 32 





PRIORITY VECTOR 


TYPE 1 
TYPE 2 
TYPE 3 


9.27 
9.41 
9. 3e 


Do you want to modify the weights (Y/N) ? 
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STEP 4 : INDIVIDUAL EVALUATION OF ALTERNATIVES | 
eto used : Direct input | 
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Figure 38. User 3 / Individual Evaluation of Alternatives Using 


Direct Made 
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STEP 4 : INDIVIDUAL EVALUATICN OF ALTERNATIVES 
Final Result 






Figure 39. Solution af User 3 ( With Direct Made ) 
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WEA ELE ENG WEA ELE ENG 
TYP 31 26 15 Weig.: 38 38 24 
TYP 28 28 23 
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Good 29 ο 18 
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Fair 18 {ð 6 
Weak 0 ὁ @ 
| P= 55.00 % @ = 55.00 x 


ALTERN. EVALUATION : WORKING AREA GRADING SCALE 
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| MENU 
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6, DISCORDANCE MATRIX 
3. OUTRANKING MATRIX 

4. MODIFY THRESHOLDS 

Je EXIT ELECTRE 


| 
| 
1. CONCORDANCE MATRIX | 
SELECTION (1-5) ? | 


STEP 4 : EVALUATION OF ALTERNATIVES 
Method Used : ELECTRE 





τν 


Figure 44. User 3 / Evaluation of Alternatives Usiriq Electre 
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what extent an option is better than 


another in terms of criteria weights 
The index varies between [ Qû - 100 ] 
the higher the better . 
j indexes are ) Ξ 55 

Column 3CI indicates the # of indexes 
satisfying P for each option 





+ A Concordance index indicates to 
ἱ 
| 


DISCORDANCE MATRIX ** ۵۳ Discordance index indicates to | 
| TYP TYP TYP 4DI what extent an option contains a bad | 
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و‎ ,+ + 000 2- ** The index varies between [| 3 - i223 ] | 
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** Colum aCI indicates the # of indexes 
satisfying @ for each option 


OUTRANKING MATRIX #& An Üutranking relation * is the 
TYP TYP TYP one that satisfies both concordance | 
Dp x ie = and discordance requirements. 
TP # -- Ἡ An - indicates that there is | 
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STEP 4 : INDIVIDUAL EVALUATION OF ALTERNATIVES 


Method used : ELECTRE | 


| 

| 

x 

| 

| 

6 ind [η x 
indexes are ( - 35.90 

x 

| 

x 





Figure 41. User 3 / Concerdance, Discerdance, Outranking Matrix 


ru 
[ú 
(n 


USER1 USER? USER3 USER1 USER? USERS 
Weig.:3.00 3.00 4.00 
TYP 1.01 1.01 1.35 2 2 e 
TYP 1.06 1.06 1.41 1 1 1 
TYP 1.01 1.01 1.34 3 3 3 


ALT. CARDINAL RANKINGS  QRDINAL RANKING GROUP RESULTS 


Re : ADDITIVE RANKING R4 : SUM OF OUTRANKING RELATIONS 


HIT ANY KEY TO CONTINUE 





STEP 5 : COMPUTATION OF GROUP DECISION 


All the solutions have comouted with AHP | 


Ri : SUM OF RANKS 3 : MULTIPLICATIVE RANKING 
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Figure 42. Graup Solution of the Problem 
(Solved with Direct Made) 
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ALT. INDIVIDUAL RANKINGS ORDINAL RANKING GROUP RESULTS 


Ri : SUM OF RANKS R3 : MULTIPLICATIVE RANKING | 


HIT RNY KEY TO CONTINUE 


STEP 3 : COMPUTATION OF GROUP DECISION | 
| 811 the solutions have computed with ELECTRE | 


USER USER? USERS USE USE USE R4 Ri 

TYP ὁ 3 Q 3 3 3 TYP Q q 
TYP 2 e 2 1 i 1 TYP 6 3 
TYP 1 1 Í ο e 2 TYP 3 6 

| x 

ντ 

| | 

» 

| | 

Re = ADDITIVE RANKING R4 : SUM OF QUTRANKING RELATIONS 
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Figure 43. Group Solutican of the Prablem 
(Salved with Electre Mode) 
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